tests/testthat/helper-makeData.R

In epivizrChart: R interface to epiviz web components

make_test_data <- function() {
  blocks <- GenomicRanges::GRanges(seqnames="chr1",
    ranges=IRanges::IRanges(start=seq(1,100,by=25), width=10))

  line <- GenomicRanges::GRanges(seqnames="chr1",
    ranges=IRanges::IRanges(start=seq(1,100,by=25), width=10),
    score=rnorm(length(seq(1,100,by=25))))

  list(blocks=blocks, line=line, eset=make_test_eset(), se=make_test_SE())
}

make_test_eset <- function() {
  require(hgu133plus2.db)
  set.seed(1)
  nprobeids <- 1000
  nsamples <- 6
  expr <- matrix(rnorm(nprobeids*nsamples), nr = nprobeids)
  pd <- data.frame(a = 1:nsamples, b = 10*(1:nsamples))
  rownames(pd) <- paste0("SAMP_", 1:nsamples)
  rownames(expr) <- head(keys(hgu133plus2.db, keytype="PROBEID"), nprobeids)
  colnames(expr) <- rownames(pd)

  ExpressionSet(assayData = expr,
    phenoData = AnnotatedDataFrame(pd),
    annotation = "hgu133plus2")
}

make_test_SE <- function() {
  nranges <- 200
  nsamples <- 6
  counts1 <- matrix(runif(nranges*nsamples, 1, 1e4), nranges)
  counts2 <- matrix(runif(nranges*nsamples, 1, 1e2), nranges)

  rowRanges<- sort(GenomicRanges::GRanges(rep(c("chr1","chr2"), c(50,150)),
    IRanges::IRanges(floor(runif(200,1e5,1e6)), width = 100),
    strand = sample(c("+","-"), 200, TRUE),
    probeid = paste0("sid_", 1:200)))
  colData = S4Vectors::DataFrame(Treatment = rep(c("ChIP","Input"), 3),
    row.names=LETTERS[1:6])
  SummarizedExperiment::SummarizedExperiment(assays = S4Vectors::SimpleList(counts1 = counts1,
    counts2 = counts2),
    rowRanges = rowRanges,
    colData = colData)
}