fac.design(levels, factor.names=<<see below>>, replications=1, row.names=<<see below>>, fraction=<<see below>>)
fnames <- list(react = c("4mod", "5mol"), acidcon = c("con", "dil"), acidamt = c("2mol", "2.5mol"), reactim = c("2", "4"), reactem = c("low", "high")) # a 1/4 replicate of a 2^5 design, specifying the -1 # fraction for the first contrast davies.design <- fac.design(rep(2,5), factor.names = fnames, fraction = ~ - react:acidamt:reactim + react:acidcon:reactem)