library(rtracklayer)
orcPeaksRep1 <-
  suppressWarnings(as(import(system.file("extdata", 
                                         "GSM424494_wt_G2_orc_chip_rep1_14.bed",
                                         package = "EatonEtAlChIPseq"),
                             format = "bed"), "GRanges"))
elementMetadata(orcPeaksRep1)[["name"]] <- NULL
levels(seqnames(orcPeaksRep1)) <- "chrXIV"
seqlengths(orcPeaksRep1) <- 784333
