names(man_qc)
data <- man_qc$data
meta <- man_qc$meta
cls.qc <- factor(meta$sample_type)
cls.bl <- factor(meta$batch)
# \donttest{
## apply QC-RLSC with optimisation of 'span'
res_1 <- qc.rlsc(data, cls.qc, method = "subtract", opti = TRUE)
## apply QC-RLSC without optimisation of 'span'
res_2 <- qc.rlsc(data, cls.qc, method = "subtract", opti = FALSE)
# }
Run the code above in your browser using DataLab