R/make.design.R

make.design<-function (target, cov, int = NULL) 
{    
    target<-data.frame(as.matrix(target))
    attach(target, warn.conflicts = FALSE)
    formula1 <- make.formula(target, cov, int = int)
    design <- model.matrix(as.formula(formula1))
    detach(target)
    newcolnames<-colnames(design)
    for (i in 1:length(cov)){
        newcolnames<-sub(cov[i], paste(cov[i],"/",sep=""), newcolnames)
    }
    colnames(design)<-newcolnames
    design
}

Try the AffyExpress package in your browser

Any scripts or data that you put into this service are public.

AffyExpress documentation built on Nov. 8, 2020, 7:50 p.m.