## Not run:
# This is how I produced the sample data sets:
# dbPath = system.file("extdata", "hg19", package="LOLA")
# regionDB = loadRegionDB(dbLocation= dbPath)
# userSetA = reduce(do.call(c, (sampleGRL(regionDB$regionGRL,
# prop=c(.1,.25,.05,.05,0)))))
# userSetB = reduce(do.call(c, (sampleGRL(regionDB$regionGRL,
# prop=c(.2,.05,.05,.05,0)))))
#
# userSets = GRangesList(setA=userSetA, setB=userSetB)
# userUniverse = reduce(do.call(c, regionDB$regionGRL))
# save(userSets, file="sample_input.RData")
# save(userUniverse, file="sample_universe.RData")
# ## End(Not run)
Run the code above in your browser using DataLab