# NOT RUN {
loomPath <- system.file(package="SCENIC", "examples/mouseBrain_toy.loom")
exprMat <- SCopeLoomR::get_dgem(SCopeLoomR::open_loom(loomPath)) # normalized preferred
dim(exprMat)
cellInfo <- data.frame(loadFile(scenicOptions, getDatasetInfo(scenicOptions, "cellInfo")))
colVars <- loadFile(scenicOptions, getDatasetInfo(scenicOptions, "colVars"))
exprMat_log <- log2(exprMat+1)
regulons <- loadInt(scenicOptions, "regulons")
regulonNames <- getRegulonName(c("Dlx1") , names(regulons))
regulon_plotExpression(exprMat_log, regulons[regulonNames], cellInfo=cellInfo, colVars=colVars) #, filename="regulonExpression.pdf")
# }
Run the code above in your browser using DataLab