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