R/build.design.R

build.design <- function(vec, des = NULL, start = 2) {
    tmp <- matrix(0, length(vec), nlevels(vec) - start + 
        1)
    for (i in 1:ncol(tmp)) {
        tmp[, i] <- vec == levels(vec)[i + start - 
            1]
    }
    cbind(des, tmp)
}
BowenNCSU/xMSanalyzer documentation built on May 24, 2019, 7:36 a.m.