## 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