# NOT RUN {
data(res)
data(covset)
v <- res$ori.res$v
v$E <- v$E[1:20,]
v$weights <- v$weights[1:20,]
Subject <- covset$ear
Time <- covset$time
ncores <- 1
C.matrix <- list()
C.matrix[[1]] <- limma::makeContrasts(line2, levels = design)
C.matrix[[2]] <- limma::makeContrasts(time2, time6, time24, levels = design)
names(C.matrix) <- c("line2", "time")
beta0 <- NULL
print.progress <- FALSE
voomglsout <- rmRNAseq:::voomgls_Symm(v, Subject, Time, ncores, C.matrix, beta0, print.progress)
# }
Run the code above in your browser using DataLab