# #——回声= FALSE,结果=“隐藏”,消息= FALSE ------------------------------- 需要(knitr)美元opts_chunk组(错误= FALSE,消息= FALSE,警告= FALSE) # #设置,呼应= FALSE,消息= FALSE ----------------------------------------- 库(BiocSingular) set.seed (100 ) ## ----------------------------------------------------------------------------- 图书馆(矩阵)< - rsparsematrix(10000、1000、密度= 0.01)<——runPCA(排名= 5,BSPARAM = IrlbaParam(延迟= TRUE)) #推迟的速度。侦察< - LowRankMatrix(旋转,美元$ x)侦察 ## ----------------------------------------------------------------------------- 摘要侦察([1])摘要(侦察[2 ,]) ## ----------------------------------------------------------------------------- sessionInfo ()