# \donttest{
data(cell_lines) # list with GE - gene expression matrix (logcounts), meta - cell meta data
GE <- cell_lines$GE
cell.meta <- cell_lines$meta
SC <- SCimplify(GE, # gene expression matrix
gamma = 20) # graining level
# Assign metacell to a cell line
SC2cellline <- supercell_assign(
clusters = cell.meta, # single-cell assignment to cell lines
supercell_membership = SC$membership) # single-cell assignment to metacells
# Plot metacell network colored by cell line
supercell_plot(SC$graph.supercells, # network
group = SC2cellline, # group assignment
main = "Metacell colored by cell line assignment",
lay.method = 'nicely')
# }
Run the code above in your browser using DataLab