gatk.normal.file <- system.file("extdata", "example_normal.txt",
package="PureCN")
gatk.tumor.file <- system.file("extdata", "example_tumor.txt",
package="PureCN")
vcf.file <- system.file("extdata", "example_vcf.vcf",
package="PureCN")
gc.gene.file <- system.file("extdata", "example_gc.gene.file.txt",
package="PureCN")
# speed-up the runAbsoluteCN by using the stored grid-search.
# (purecn.example.output$candidates).
data(purecn.example.output)
# The max.candidate.solutions argument is set to a very low value only to
# speed-up this example. This is not a good idea for real samples.
ret <-runAbsoluteCN(gatk.normal.file=gatk.normal.file,
gatk.tumor.file=gatk.tumor.file,
vcf.file=vcf.file, sampleid='Sample1', gc.gene.file=gc.gene.file,
candidates=purecn.example.output$candidates, max.candidate.solutions=2,
fun.segmentation=segmentationCBS, args.segmentation=list(alpha=0.001))
Run the code above in your browser using DataLab