# NOT RUN {
# load data classified previously (see \code{SignacFast})
P <- readRDS("celltypes.rds")
S <- readRDS("pbmcs.rds")
# get edges from default assay from Seurat object
default.assay <- Seurat::DefaultAssay(S)
edges = S@graphs[[which(grepl(paste0(default.assay, "_nn"), names(S@graphs)))]]
# get distance matrix
D = CID.GetDistMat(edges)
# entropy-based unclassified labels labels
entropy = CID.entropy(ac = P$L2, distM = D)
# }
Run the code above in your browser using DataLab