xref: /dports/math/R-cran-DoE.base/DoE.base/R/change.contr.R

change.contr <- function(design, contrasts="contr.treatment"){
   qua.design(design, quantitative="none", contrasts=contrasts)
}