Calculate SCIntRuler
CalcuSCIR(fullcluster, seuratlist, testres, p = 0.1)SCIntRuler
data(sim_result)
data(sim_data_sce)
# Create example data for fullcluster (mock data)
sim_data <- SCEtoSeurat(sim_data_sce)
#> Warning: No gene metadata columns found to add to Seurat object.
seuratlist <- Seurat::SplitObject(sim_data, split.by = "Study")
# seuratlist <- InputData(sim_data_sce,"Study")
# fullcluster <- GetCluster(seuratlist)
# testres <- PermTest(fullcluster,distmat,15)
CalcuSCIR(sim_result[[1]], seuratlist, sim_result[[4]])
#> [1] 0.5714286