# #——选项,包括= FALSE,回声= FALSE --------------------------------------- 库(BiocStyle) knitr: opts_chunk设置美元(= FALSE警告、错误= FALSE消息= FALSE) # #——构造 ---------------------------------------------------------------- 库(SingleCellExperiment)计数< -矩阵(rpois(100年,λ= 10),ncol = 10,南加州爱迪生公司nrow = 10) < - SingleCellExperiment(化验=列表(数量=计数))预计 ## ----------------------------------------------------------------------------- # 函数在包:AsetX < -函数(sce) {int_colData (sce) $ X <——runif (ncol (sce) sce} #功能包B:BsetX < -函数(sce) {int_colData (sce) $ X < -样本(信件、ncol (sce),取代= TRUE)预计 } ## ----------------------------------------------------------------------------- sce2 < - AsetX (sce) int_colData (sce2) $ X sce2 < - BsetX (sce2) int_colData (sce2) $ X ## ----------------------------------------------------------------------------- AsetX_better < -函数(sce) {int_colData (sce) <——美元DataFrame (X = runif (ncol (sce))) sce} BsetX_better (sce){选择< < -功能-样本(信件、ncol (sce),取代= TRUE) int_colData (sce) $ B < - DataFrame南加州爱迪生公司(X =选择)}sce2 < - AsetX_better (sce) sce2 < - BsetX_better (sce2) int_colData (sce2) $ $ X int_colData (sce2) B X美元 ## ----------------------------------------------------------------------------- AsetY_better < -函数(sce) {int_elementMetadata (sce) <——美元DataFrame (Y = runif (nrow (sce))) sce} BsetY_better (sce){选择< < -功能-样本(信件、nrow (sce),取代= TRUE) int_elementMetadata (sce) $ B < - DataFrame南加州爱迪生公司(Y =选择)}sce2 < - AsetY_better (sce) sce2 < - BsetY_better (sce2) int_elementMetadata (sce2) $ $ Y int_elementMetadata (sce2) B美元Y ## ----------------------------------------------------------------------------- AsetZ_better < -函数(sce) {int_metadata (sce) $ < -列表(Z =“伦”)sce} BsetZ_better < -函数(sce) {int_metadata (sce) $ B < -列表(Z =“大卫。”)sce} sce2 < - AsetZ_better (sce) sce2 < - BsetZ_better (sce2) int_metadata (sce2) Z美元美元int_metadata (sce2) B Z美元 ## ----------------------------------------------------------------------------- sessionInfo ()