Publications by Eddie J. Liu
Homework14
Problem 14.3 library(GAD) ## Loading required package: matrixStats ## Loading required package: R.methodsS3 ## R.methodsS3 v1.8.1 (2020-08-26 16:20:06 UTC) successfully loaded. See ?R.methodsS3 for help. Obs <- c(12,8,14,12,14,16,9,9,15,10,10,15,11,10,13,11,12,15,12,8,14,13,11,14) Machine <- rep(c(rep(1,2),rep(2,2),rep(3,2)),4) Spindle <- rep(s...
683 sym R (1224 sym/8 pcs) 4 img
Assignment18_Group4
Process <- rep(c(rep(1,4),rep(2,4),rep(3,4)),3) Batch <- rep(seq(1,4),9) Obs1 <- c(25,19,15,15,19,23,18,35,14,35,38,25) Obs2 <- c(30,28,17,16,17,24,21,27,15,21,54,29) Obs3 <- c(26,20,14,13,14,21,17,25,20,24,50,33) Obs <- c(Obs1,Obs2,Obs3) Table <- data.frame(Process, Batch, Obs) library(GAD) ## 载入需要的程辑包：matrixStats ## 载...
543 sym R (1324 sym/7 pcs)
Project_Part3_Group8
(a): Data collection layout is listed as in the results. library(agricolae) trts<-c(2,2,2,2) #Specify the K number of replications (r=1) design <- design.ab(trt=trts, r=1, design="crd",seed=879879) design$book ## plots r A B C D ## 1 101 1 2 1 2 1 ## 2 102 1 2 1 1 1 ## 3 103 1 1 1 1 1 ## 4 104 1 2 1 2 2 ## 5 105 1 1 1 ...
942 sym R (3056 sym/19 pcs) 1 img
HW11
Problem 6.8 obs <- c(21,23,20,22,28,26,25,24,29,26,25,27,37,38,35,39,38,36,31,29,30,34,33,35) time<- c(-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,1,1,1,1,1,1,1,1,1,1,1,1) cm <- c(-1,-1,-1,-1,-1,-1,1,1,1,1,1,1,-1,-1,-1,-1,-1,-1,1,1,1,1,1,1) library(DoE.base) ## Loading required package: grid ## Loading required package: conf.design ## Registered S3 met...
11078 sym R (18119 sym/204 pcs) 34 img
Assignment16_Group9
(a): library(DoE.base) ## 载入需要的程辑包：grid ## 载入需要的程辑包：conf.design ## Registered S3 method overwritten by 'DoE.base': ## method from ## factorize.factor conf.design ## ## 载入程辑包：'DoE.base' ## The following objects are masked from 'package:stats': ## ## aov, lm ## The foll...
1323 sym R (2675 sym/19 pcs) 1 img
Homework10_Jiachen,Liu
5.4 (a) library(GAD) ## Loading required package: matrixStats ## Loading required package: R.methodsS3 ## R.methodsS3 v1.8.1 (2020-08-26 16:20:06 UTC) successfully loaded. See ?R.methodsS3 for help. finish <- c(74,64,60,79,68,73,82,88,92,99,104,96,92,86,88,98,104,88,99,108,95,104,110,99,99,98,102,104,99,95,108,110,99,114,111,107) cut <- c(rep(...
7220 sym R (11468 sym/31 pcs) 18 img
Project-Part2_Group8
Part 2 (a): \(\overline{y_{ijk}}=\mu+\alpha_{i}+\beta_{j}+\alpha\beta_{ij}+\epsilon_{ijk}\) \(H_{0}\): \(\alpha_{i}=0\) \(H_{1}\): \(\alpha_{i}\neq0\) \(H_{0}\): \(\beta_{j}=0\) \(H_{1}\): \(\beta_{j}\neq0\) \(H_{0}\): \(\alpha\beta_{ij}=0\) \(H_{1}\): \(\alpha\beta_{ij}\neq0\) We assume level of significance to be 0.1. (b): library(agr...
1931 sym R (5895 sym/16 pcs) 5 img
Assignment14_Group4
Assignment 14 Group4 Problem 1 dat1 <- read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/PowderProduction.csv") colnames(dat1) <- c("Ammonium", "StirRate", "Temperature", "Density") str(dat1) ## 'data.frame': 16 obs. of 4 variables: ## $ Ammonium : int 2 2 30 30 2 2 30 30 2 2 ... ## $ StirRate : int 100 100 100 ...
1967 sym R (4818 sym/18 pcs) 1 img
Homework7_Jiachen, Liu
Problem 4.3 library(GAD) ## Loading required package: matrixStats ## Loading required package: R.methodsS3 ## R.methodsS3 v1.8.1 (2020-08-26 16:20:06 UTC) successfully loaded. See ?R.methodsS3 for help. obs <- c(73,68,74,71,67,73,67,75,72,70,75,68,78,73,68,73,71,75,75,69) trt <- c(rep(1,5),rep(2,5),rep(3,5),rep(4,5)) block1 <- c(rep(seq(1,5),4)...
1418 sym R (4280 sym/33 pcs) 5 img
Homework6
Problem 3.23 (a): r1 <- c(17.6,18.9,16.3,17.4,20.1,21.6) r2 <- c(16.9,15.3,18.6,17.1,19.5,20.3) r3 <- c(21.4,23.6,19.4,18.5,20.5,22.3) r4 <- c(19.3,21.1,16.9,17.5,18.3,19.8) obs <- c(r1,r2,r3,r4) type <- c(rep(1,6),rep(2,6),rep(3,6),rep(4,6)) dat1 <- cbind(obs,type) str(dat1) ## num [1:24, 1:2] 17.6 18.9 16.3 17.4 20.1 21.6 16.9 15.3 18....
6883 sym R (6469 sym/68 pcs) 35 img