data(spikeInStat)
x <- Les(pos, pval)
x <- estimate(x, 200)
x <- threshold(x)
x <- regions(x)
subset <- pos >= 5232300 & pos <= 5233200
x <- ci(x, subset, conf=0.90, nBoot=50)
## plot data
plot(x, region=TRUE)
plot(x, region=TRUE, error="ci")
## Not run:
# ## export data of chromosome 1
# export(x, file="les_out.bed", chr=1)
# export(x, file="les_out.wig", format="wig", chr=1)
# ## End(Not run)
Run the code above in your browser using DataLab