## get reads and targets
exptPath <- system.file("extdata", package="TEQC")
readsfile <- file.path(exptPath, "ExampleSet_Reads.bed")
reads <- get.reads(readsfile, skip=0, idcol=4)
targetsfile <- file.path(exptPath, "ExampleSet_Targets.bed")
targets <- get.targets(targetsfile, skip=0)
## simulated 2nd sample
r <- sample(nrow(reads), 0.1 * nrow(reads))
reads2 <- reads[-r,,drop=TRUE]
## Not run:
# ## create single-sample reports
# TEQCreport(sampleName="Test Sample A", targetsName="Human Exome", referenceName="Human Genome",
# destDir="./reportA", reads=reads, targets=targets, genome="hg19")
# TEQCreport(sampleName="Test Sample B", targetsName="Human Exome", referenceName="Human Genome",
# destDir="./reportB", reads=reads2, targets=targets, genome="hg19")
#
# ## create multi-sample report
# multiTEQCreport(singleReportDirs=c("./reportA", "./reportB"), samplenames=c("Sample A","Sample B"),
# projectName="Test Project", targetsName="Human Exome", referenceName="Human Genome",
# destDir="./multiTEQCreport")
# ## End(Not run)
Run the code above in your browser using DataLab