infile <- system.file("extdata", "test_alleleCounts_chr2.txt", 
                        package = "TitanCNA")
  #### LOAD DATA FROM TEXT FILE ####
  data <- loadAlleleCounts(infile, symmetric = TRUE, 
  		genomeStyle = "NCBI", header = TRUE)
  
  ## Not run: 
# 	countsDF <- extractAlleleReadCounts(tumBam, tumBamIndex, 
# 			germlineHetPosns, outputFilename = NULL, 
# 			pileupParam = PileupParam())
# 	data <- loadAlleleCounts(countsDF, symmetric = TRUE, 
#   			genomeStyle = "NCBI")
#   ## End(Not run)
Run the code above in your browser using DataLab