## ------------------------------------------------------------------------------------------------------------------ suppressPackageStartupMessages({ library(SingleCellExperiment) library(DuoClustering2018) library(dplyr) library(tidyr) })## ------------------------------------------------------------------------------------------------------------------------------ dat <-sce_filteredexpr10_koh（）## ------------------------------------------------------------------------------------------------------------------------------------------------------------------------ res <-clustering_summary_filteredexpr10_koh_v2（）## ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Res<-res％>％dplyr :: filtr（run == 1＆k％in％c（3，5，9））％>％dplyr :: group_by（method，k）％>％dplyr :: filter（IS。>％dplyr :: select（cell，method_k，cluster）％>％tidyr :: spread（key = method_k，value = cluster）coldata（dat）<-dataframe（as.data.frame（coldata（dat））％>％dplyr :: left_join（res，by by = c（“ run” =“ cell”）））head（coldata（dat））##---- eval = false -----------------------------------------------------------------------------------------------------------------------------------------------＃if（require（isee））{＃isee（dat）＃} ## ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------- sessioninfo（）