Nothing
library("planor")
haies.fnames <- c("A1","A2","B1","B2","C1","C2","P1","P2","Q1","Q2")
haies.key1 <- planor.designkey(factors=haies.fnames,
nlevels=rep(2,10), nunits=2^5, model=~A1*A2+B1*B2+C1*C2+P1*P2+Q1*Q2,
base=~A1+B1+C1+P1+Q1,max.sol=1)
planor.designkey(factors=haies.fnames, nlevels=rep(2,10), nunits=2^5, model=~A1*A2+B1*B2+C1*C2+P1*P2+Q1*Q2+A1*B1*C1*P1*Q1, base=~A1+B1+C1+P1+Q1,max.sol=1)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.