1require(FrF2)
2
3summary(FrF2(16,7),brief=TRUE)
4summary(FrF2(32,7,blocks=4),brief=TRUE)
5summary(FrF2(32,9,blocks=4,alias.block.2fis=TRUE),brief=TRUE)
6summary(FrF2(32,9,blocks=c("AB","AC"),alias.block.2fis=TRUE),brief=TRUE)
7summary(FrF2(64,7,blocks=4),brief=TRUE)
8summary(plan1 <- FrF2(32,7,estimable=c("AB","CD")),brief=TRUE)
9summary(plan2 <- FrF2(nruns= 64 ,nfactors= 10 , estimable= c( "AB","AC","AD","AE","AF",
10       "AG","AH","AJ","AK","BC","BD","BE","BF","BG","BH","BJ","BK" ) ), brief=TRUE)
11
12C1 <- compromise(10, 1:2, msg=FALSE)
13summary(plan3 <- FrF2(nruns= 64 ,nfactors= 10 ,
14    estimable= C1$requirement, perms=C1$perms.full, clear=FALSE ), brief=TRUE)
15
16### blockpick.big, a design that uses map
17plan <- FrF2(64,15,blocks=16,alias.block.2fi=TRUE)
18summary(plan,brief=TRUE)
19
20### various split-plot setups
21planfull <-FrF2(32,5,WPs=4,nfac.WP=2,factor.names=Letters[21:25])
22summary(planfull, brief=TRUE)
23design.info(planfull)[-which(names(design.info(planfull))=="FrF2.version")]
24try(planfull <-FrF2(32,5,WPs=4,nfac.WP=3,factor.names=Letters[21:25]))
25
26plan0 <-FrF2(32,7,gen=c(6,15),WPs=4,WPfacs=c("B","C","F"),factor.names=Letters[19:25])
27summary(plan0,brief=TRUE)
28design.info(plan0)[-which(names(design.info(plan0))=="FrF2.version")]
29
30plan <-FrF2(32,7,WPs=4,nfac.WP=3,factor.names=Letters[19:25])
31summary(plan, brief=TRUE)
32generators(plan)
33design.info(plan)[-which(names(design.info(plan))=="FrF2.version")]
34
35plan2 <- FrF2(32,7,gen=c(6,15),WPs=4,nfac.WP=3,WPfacs=c(2,3,6),factor.names=Letters[19:25])
36summary(plan2, brief=TRUE)
37generators(plan2)
38design.info(plan2)[-which(names(design.info(plan2))=="FrF2.version")]
39