Publications by Author Felipe Zambrini Santos
Homework12
Question 7.12 From the exercise 6.21, the data is as follows. But, since we want to block the replications, let’s add the variable “blocking” in order to do that: length <- rep(c(rep("-",7),rep("+",7)),8) type <- rep(c(rep("-",14),rep("+",14)),4) brk <- rep(c(rep("-",28),rep("+",28)),2) slope <- c(rep("-",56),rep("+",56)) blocking <-...
1747 sym R (2447 sym/4 pcs) 2 img
FA 18 - Group2
Nested Designs library(GAD) ## Loading required package: matrixStats ## Loading required package: R.methodsS3 ## R.methodsS3 v1.8.2 (2022-06-13 22:00:14 UTC) successfully loaded. See ?R.methodsS3 for help. We want to test the hypotheses that only process is significant: \[ H_0:\alpha=0\\ H_a:\alpha\neq 0 \] process <- c(rep(1:3,each=4,3)) batch...
222 sym R (4012 sym/12 pcs)
Homework 13
Question 8.2 Installing necessary libraries library(FrF2) ## Warning: package 'FrF2' was built under R version 4.2.2 ## Loading required package: DoE.base ## Warning: package 'DoE.base' was built under R version 4.2.2 ## Loading required package: grid ## Loading required package: conf.design ## Registered S3 method overwritten by 'DoE.base': ## ...
859 sym R (13915 sym/24 pcs) 3 img
Homework 14
1 Question 14.3 1.1 Loading Libraries library(GAD) We want to test the hypotheses that either machine or spindle (which is nested in machine) significantly affects the response of the collected data: \[ H_0:\alpha=0\\ H_a:\alpha \neq0\\ H_0:\beta=0\\H_a:\beta\neq0\] machine <- c(rep(1,8),rep(2,8),rep(3,8)) spindle <- rep(c(rep(1,4),rep(2,4)...
388 sym R (659 sym/3 pcs)
question9
library(GAD) 1 Letter a obs <- c(570,1063,565, 565,1080,510, 583,1043,590, 528,988,526, 547,1026,538, 521,1004,532) position <- c(rep(1,9),rep(2,9)) temperature <- rep(c(800,825,850),6) position <- as.fixed(position) temperature <- as.fixed(temperature) model <- aov(obs~position*temperatur...
750 sym R (1909 sym/7 pcs)
Question11
1 Letter a library(DoE.base) A<-c(-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1) B<-c(-1,-1,1,1,-1,-1,1,1,-1,-1,1,1,-1,-1,1,1) C<-c(-1,-1,-1,-1,1,1,1,1,-1,-1,-1,-1,1,1,1,1) D<-c(-1,-1,-1,-1,-1,-1,-1,-1,1,1,1,1,1,1,1,1) Observations<-c(12,18,13,16,17,15,20,15,10,25,13,24,19,21,17,23) Data<-data.frame(A,B,C,D,Observations) model<-lm(Observations~A...
641 sym R (1393 sym/5 pcs) 1 img
Question13
1 Letter a The model equation can be described as: \[ y_{ijk}=\mu+\alpha_i+\beta_j+\epsilon_{ijk} \] 2 Letter b We want to test the hypotheses that only process is significant: \[ H_0:\alpha=0\\ H_a:\alpha\neq 0 \] 3 Letter c library(GAD) ## Loading required package: matrixStats ## Loading required package: R.methodsS3 ## R.methodsS3 v1.8.2 (...
536 sym R (3998 sym/12 pcs)