### R代码从vignette源的sigsquared。Rnw ' ################################################### ### 代码块1号:sigsquared。Rnw: 51-53 ################################################### 库(Biobase)库(生存 ) ################################################### ### 代码块2号:sigsquared。Rnw: 57-59 ################################################### 库(sigsquared)数据(BrCa443 ) ################################################### ### 代码块3号:sigsquared。Rnw: 73 - 76 ################################################### gs < -新(“geneSignature”)基因< - c(“RKIP”、“HMGA2”,“SPP1”、“趋化因子受体CXCR4”,“可以”,“MetaLET7”、“MetaBACH1”)gs < setGeneSignature (gs,直接= c(1, 1, 1, 1, 1, 1, 1),基因=基因 ) ################################################### ### 代码块数量4:sigsquared。Rnw: 85 - 86 ################################################### gs < analysisPipeline(数据集= BrCa443 geneSig = gs, iterPerK = 50 k = 2,兰德= FALSE ) ################################################### ### 代码块5号:sigsquared。Rnw: 95 - 97 ################################################### < - ensembleAdjustable(数据集= BrCa443 geneSig = gs)情节(survfit (Surv (MFS,遇见了)~年代,data = pData (BrCa443)))