## seven factors two of which are in group G1
C1 <- compromise(7, c(2,4), class=1)
C1$perms.full ## the same for all classes
C1$requirement
C2 <- compromise(7, c(2,4), class=2)
C2$requirement
C3 <- compromise(7, c(2,4), class=3)
C3$requirement
C4 <- compromise(7, c(2,4), class=4)
C4$requirement
if (FALSE) {
########## usage of estimable ###########################
## design with with BD clear in 16 runs
FrF2(16,7,estimable = C1$requirement)
## design with BD estimable on a distinct column in 16 runs (any design will do,
## if resolution IV!!!
FrF2(16,7,estimable = C1$requirement, clear=FALSE, perms=C1$perms.full)
## all four classes, mostly clear, for 32 runs
FrF2(32,7,estimable = C1$requirement)
FrF2(32,7,estimable = C2$requirement) ## requires resolution V
## as clear class 2 compromise designs do not exist due to Ke et al. 2005
FrF2(32,7,estimable = C2$requirement, clear=FALSE, perms=C2$perms.full)
FrF2(32,7,estimable = C3$requirement)
FrF2(32,7,estimable = C4$requirement)
## two additional factors H and J that do not show up in the requirement set
FrF2(32,9,estimable = C3$requirement)
## two additional factors H and J that do not show up in the requirement set
FrF2(32,9,estimable = C3$requirement, clear=FALSE)
## note that this is not possible for distinct designs in case perms is needed,
## because perms must have nfactors columns
}
Run the code above in your browser using DataLab