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)