Publications by Hossein Bahreinizad
FA18_Group1
As this is a nested design the model equation is as follows: \(y_{ijk}=\mu+\alpha_i+\beta_{j(i)}+\epsilon_{ijk}\) Also the hypothesis is as follows: \(H_0: \alpha_i=0\) and \(H_0:\sigma^2_\beta=0\) \(H_1: \alpha_i\ne0\) and \(H_1:\sigma^2_\beta\ne0\) process <- c(rep(1,4),rep(2,4),rep(3,4),rep(1,4),rep(2,4),rep(3,4),rep(1,4),rep(2,4),rep(3,4)) b...
450 sym R (2036 sym/5 pcs) 4 img
Document
8.2 library(FrF2) obs <- c(7.037, 16.867, 13.876, 17.273, 11.846, 4.368, 9.360, 15.653) des <- FrF2(nfactors = 4,resolution = 4,randomize = FALSE) des <- add.response(des,obs) summary(des) ## Call: ## FrF2(nfactors = 4, resolution = 4, randomize = FALSE) ## ## Experimental design of type FrF2 ## 8 runs ## ## Factor settings (scale ...
376 sym R (5410 sym/15 pcs) 1 img
Final project
Libraries library(agricolae) ## Warning: package 'agricolae' was built under R version 4.2.2 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. library(pwr) library(dplyr) ## ## Attaching package: 'dplyr' ...
10208 sym R (9645 sym/61 pcs) 14 img
Q9
library(GAD) ## Loading required package: matrixStats ## Warning: package 'matrixStats' was built under R version 4.2.2 ## Loading required package: R.methodsS3 ## R.methodsS3 v1.8.2 (2022-06-13 22:00:14 UTC) successfully loaded. See ?R.methodsS3 for help. pos <- c(rep(1,9),rep(2,9)) temp <- c(rep(seq(1,3),6)) obs <- c(570,1063,565,565,1080,510...
1589 sym R (2437 sym/13 pcs)
Q11
library(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': ## method from ## factorize.factor conf.design ## ## Attaching package: 'DoE.base' ## The following objects are mask...
653 sym R (2000 sym/16 pcs) 1 img
Q13
library(GAD) ## Loading required package: matrixStats ## Warning: package 'matrixStats' was built under R version 4.2.2 ## Loading required package: R.methodsS3 ## R.methodsS3 v1.8.2 (2022-06-13 22:00:14 UTC) successfully loaded. See ?R.methodsS3 for help. proc <- c(rep(1,4),rep(2,4),rep(3,4),rep(1,4),rep(2,4),rep(3,4),rep(1,4),rep(2,4),rep(3,4))...
390 sym R (1782 sym/9 pcs)