if (FALSE) {
gbkFile <- system.file("extdata", "NC_045072/NC_045072.gb", package="PACVr")
bamFile <- system.file("extdata", "NC_045072/NC_045072_subsampled.bam", package="PACVr")
outFile <- paste(tempdir(), "/NC_045072__all_reads.pdf", sep="")
PACVr.complete(gbkFile=gbkFile, bamFile=bamFile, windowSize=250, logScale=FALSE,
threshold=0.5, IRCheck=1, relative=TRUE, textSize=0.5,
tabularCovStats=FALSE, output=outFile)
}
if (FALSE) {
gbkFile <- system.file("extdata", "MG936619/MG936619.gb", package="PACVr")
bamFile <- system.file("extdata", "MG936619/MG936619_subsampled.bam", package="PACVr")
outFile <- paste(tempdir(), "/MG936619_CoverageViz.pdf", sep="")
PACVr.complete(gbkFile=gbkFile, bamFile=bamFile, windowSize=50, logScale=FALSE,
threshold=0.5, IRCheck=NA, relative=TRUE, textSize=0.5,
tabularCovStats=FALSE, output=outFile)
}
Run the code above in your browser using DataLab