# NOT RUN {
library(SCENIC)
scenicOptions <- readRDS("int/scenicOptions.Rds")
loomPath <- system.file(package="SCENIC", "examples/mouseBrain_toy.loom")
exprMat <- SCopeLoomR::get_dgem(SCopeLoomR::open_loom(loomPath))
genesKept <- loadInt(scenicOptions, "genesKept")
exprMatrix_filtered <- exprMat[genesKept,]
exprMat_filtered <- log2(exprMatrix_filtered+1)
runGenie3(exprMat_filtered, scenicOptions)
# }
Run the code above in your browser using DataLab