if (require(minfiData)) {
names <- pData(RGsetEx)$Sample_Name
groups <- pData(RGsetEx)$Sample_Group
## Not run:
# qcReport(RGsetEx, sampNames=names, sampGroups=groups, pdf="qcReport.pdf")
# ## End(Not run)
}
Run the code above in your browser using DataLab