# #,再分析。RData eval = FALSE --------------------------------------------- # 图书馆(“scTensor”)(“reanalysis.RData #负载 ") ## ---- 再分析,eval = FALSE --------------------------------------------------- # 库(AnnotationHub) #库(LRBaseDbi) # # # #创建LRBase对象啊< - AnnotationHub () # dbfile < -查询(啊,c(“LRBaseDb”、“智人”,“v002”))[[1]]# LRBase. hsa . egg .db <- LRBaseDbi::LRBaseDb(dbfile) # # #注册用户LRBase的文件传递#元数据(sce)$ LRBase <- dbfile(LRBase. hsa . egg .db) # # # CCI张量分解# cellCellDecomp(sce, ranks=c(6,5)， assayNames="normcounts") # # # HTML报告# cellCellReport(sce, reducedDimNames="TSNE"， assayNames="normcounts"， # title="Cell-cell interaction within Germline_Male, GSE86146"， # author=" Tsuyuzaki"， HTML。打开= TRUE, # goenrich = TRUE, meshenrich = FALSE, reactomeenrich = FALSE, # doenrich = FALSE, ncgenrich = FALSE, dgnenrich = FALSE) # #——sessionInfo回声= FALSE -------------------------------------------------- sessionInfo ()