data(segwithratio)
seg <- GRanges(seqnames=segwithratio$chromosome,
ranges=IRanges(start=segwithratio$start,
end=segwithratio$end),
medLAF=segwithratio$medLAF,
medgLAF=segwithratio$medgermlineLAF,
ratio=segwithratio$ratio)
bb <- admixtureRate(seg)
Run the code above in your browser using DataLab