# \donttest{
data(cell_lines)
SC <- SCimplify(cell_lines$GE, gamma = 20)
SC$ident <- supercell_assign(clusters = cell_lines$meta, supercell_membership = SC$membership)
SC.GE <- supercell_GE(cell_lines$GE, SC$membership)
sce <- supercell_2_sce(SC.GE = SC.GE, SC = SC, fields = c("ident"))
# }
Run the code above in your browser using DataLab