Plot SCIntRuler
PlotSCIR(fullcluster, seuratlist, testres, legendtitle = NULL, title = NULL)
A ggplot2 object
# Create example data for fullcluster (mock data)
data(sim_data_sce)
data(sim_result)
# if(is(sim_data_sce, "SingleCellExperiment")){ sim_data <- as.Seurat(sim_data_sce) }
sim_data <- SCEtoSeurat(sim_data_sce)
#> Error in SCEtoSeurat(sim_data_sce): could not find function "SCEtoSeurat"
seuratlist <- Seurat::SplitObject(sim_data, split.by = "Study")
#> Error: object 'sim_data' not found
# fullcluster <- GetCluster(seurat_object_list)
# testres <- PermTest(fullcluster,distmat,15)
PlotSCIR(sim_result[[1]], seuratlist, sim_result[[4]])
#> Error: object 'seuratlist' not found