example(compileCopyCountSegments)
CNV.clean <- CNV.segments[CNV.segments$copy.count != 2,]
chr.start <- start(range(fit@ranges)[["chr1"]])
chr.end <- end(range(fit@ranges)[["chr1"]])
plotCompiledCNV(CNV.clean, "chr1", xlim=c(chr.start,chr.end))
Run the code above in your browser using DataLab