## Not run:
# nrows <- 200; ncols <- 20
# counts <- matrix(runif(nrows * ncols, 1, 1e4), nrows)
# rowRanges <- GenomicRanges::GRanges(rep(c("chr1", "chr2"), c(50, 150)),
# IRanges::IRanges(floor(runif(200, 1e5, 1e6)), width=100),
# strand=sample(c("+", "-"), 200, TRUE),
# feature_id=sprintf("ID%03d", 1:200))
# colData <- S4Vectors::DataFrame(Treatment=rep(c("ChIP", "Input"), 10),
# row.names=LETTERS[1:20],
# group=rep(c("group1","group2"),c(10,10)))
# data <- SummarizedExperiment::SummarizedExperiment(
# assays=S4Vectors::SimpleList(counts=counts),
# rowRanges=rowRanges,
# colData=colData)
# data <- calculate.pvalues(data,"group")
# ## End(Not run)
Run the code above in your browser using DataLab