names(man_qc)
data <- man_qc$data
meta <- man_qc$meta
cls.qc <- factor(meta$sample_type)
cls.bl <- factor(meta$batch)
## apply QC-RLSC wrapper function
method <- "divide" # "subtract"
intra <- TRUE
opti <- TRUE
log10 <- TRUE
outl <- TRUE
shift <- TRUE
# \donttest{
res <- qc.rlsc.wrap(data, cls.qc, cls.bl, method, intra, opti, log10,
outl, shift)
# }
Run the code above in your browser using DataLab