data(segwithratio)
x <- GRanges(seqnames=segwithratio$chromosome,
ranges=IRanges(start=segwithratio$start,
end=segwithratio$end),
medLAF=segwithratio$medLAF,
medgLAF=segwithratio$medgermlineLAF,
ratio=segwithratio$ratio
)
admix <- 0.4
y <- copynumberCorrected(x, admix)
Run the code above in your browser using DataLab