Nothing
## ---- eval = FALSE------------------------------------------------------------
# activeDHS = unlist(regionDB$regionGRL[which(regionDB$regionAnno$collection == "sheffield_dnase")])
# activeDHS = disjoin(activeDHS)
# activeDHS
## ---- eval = FALSE------------------------------------------------------------
# restrictedUniverse = unlist(userSets)
## ---- eval = FALSE------------------------------------------------------------
# locResults = runLOLA(userSets, activeDHS, regionDB, cores=1)
# locResultsRestricted = runLOLA(userSets, restrictedUniverse, regionDB, cores=1)
## ---- eval = FALSE------------------------------------------------------------
# locResults[userSet==2,][order(maxRnk, decreasing=FALSE),][1:10,]
# locResultsRestricted[userSet==2,][order(maxRnk, decreasing=FALSE),][1:10,]
#
# locResults[userSet==3,][order(maxRnk, decreasing=FALSE),][1:10,]
# locResultsRestricted[userSet==3,][order(maxRnk, decreasing=FALSE),][1:10,]
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.