data(demoCell)
genemap <- read.csv(file.path(system.file("Test", package = "OperaMate"),
"demoData", "genemap.csv"), stringsAsFactors = FALSE)
chart <- cellSigAnalysis(oneCell, genemap, organism = "mmusculus")
op <- options("device")
options("device" = "png")
cellSigAnalysisPlot(chart, type = "BP", outpath = tempdir())
options(op)
Run the code above in your browser using DataLab