if (require(charmData) & require(BSgenome.Hsapiens.UCSC.hg18)) {
phenodataDir <- system.file("extdata", package="charmData")
pd <- read.delim(file.path(phenodataDir, "phenodata.txt"))
# Read in raw data
dataDir <- system.file("data", package="charmData")
rawData <- readCharm(path=dataDir, files=pd$filename,
sampleKey=pd)
ctrlIdx <- getControlIndex(rawData, subject=Hsapiens)
## Not run:
#plotDensity(rawData, controlIndex=ctrlIdx, pdfFile="density.pdf")
}
Run the code above in your browser using DataLab