# NOT RUN {
data(res)
data(resSymm)
data(design)
data(covset)
RFIanalysis <- list(CAR1 = res, Symm = resSymm)
C.matrix <- list()
# test for Line main effect
C.matrix[[1]] <- limma::makeContrasts(line2, levels = design)
names(C.matrix) <- c("line2")
scenario <- 1; EE <- 3; DE <- 2; ncores <- 1; Subject <- covset$ear;
Time <- covset$time; Nboot <- 2; nrep <- 1;
name_dir_sim <- NULL
print.progress <- FALSE; saveboot <- FALSE;
TC_Symm_scOut <- rmRNAseq:::TC_CAR1_sc(RFIanalysis, scenario, EE, DE, C.matrix,
Subject, Time, Nboot, nrep, ncores, name_dir_sim , print.progress, saveboot)
names(TC_Symm_scOut)
# }
Run the code above in your browser using DataCamp Workspace