rawLAF <- c(rnorm(300, 0.2, 0.05), rnorm(300, 0.4, 0.05), rnorm(200, 0.3, 0.05), rnorm(200, 0.2, 0.05), rnorm(200, 0.3, 0.05), rnorm(250, 0.4, 0.05))
germLAF <- c(rnorm(800+650, 0.4, 0.05))
reads1 <- c(rpois(300, 25), rpois(300, 50), rpois(200, 60), rpois(200, 25), rpois(200, 40), rpois(250, 50))
reads2 <- rpois(800+650, 50)
chr <- c(rep("chr1", 800), rep("chr2", 650))
position <- c(seq(1, 1600000, by=2000), seq(1, 1300000, by=2000))
zygo <- rep("het", 800+650)
data <- GRanges(seqnames=chr,
ranges=IRanges(start=position, width=1),
zygosity=zygo,
tCount=reads1,
LAF=rawLAF,
tCountN=reads2,
germLAF=germLAF)
data(GCcontent)
x <- GCbiasRemoval(data, GCcontent)
Run the code above in your browser using DataLab