## purely technical example, not run because FrF2 not loaded
if (FALSE) {
plan <- FrF2(16,5, factor.names=c("one","two","three","four","five"), ncenter=4)
iscube(plan)
plan2 <- ccd.augment(plan)
iscube(plan2)
isstar(plan2)
pickcube(plan2)
}
Run the code above in your browser using DataLab