# # # R代码从装饰图案的maPredictDSC来源。Rnw“# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块1号:maPredictDSC。Rnw: 72 - 77 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #库(maPredictDSC)库(LungCancerACvsSCCGEO)数据(LungCancerACvsSCCGEO) anoLC gsLC # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块2号:maPredictDSC。Rnw: 95 - 100 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # modlist = predictDSC(另= anoLC celfile.path =执行(“extdata / lungcancer”、包=“LungCancerACvsSCCGEO”),注释= " hgu133plus2。db”, preprocs = c (rma),过滤器= c(“太”、“tt”),分类器= c(“片状”、“资讯”),CVP = 2、NF = 4, NR = 1, FCT = 1.0) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块3号:maPredictDSC。Rnw: 110 - 111 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # modlist [[“rma_ttest_LDA”]] # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块数量4:maPredictDSC。Rnw: 119 - 121 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # trainingAUC =排序(unlist(拉普兰人(modlist”, [[”、“best_AUC”)),减少= TRUE) cbind (trainingAUC) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块5号:maPredictDSC。Rnw: 129 - 135 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #性能= function () {perfDSC (pred =预测美元,g = gsLC)} testPerf = t (data.frame(拉普兰人(modlist穿孔)))testPerf = testPerf[秩序(testPerf, AUC”,减少= TRUE),] testPerf # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块6号:maPredictDSC。Rnw: 141 - 145 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # best3 =名字(trainingAUC) [1:3] aggpred = aggregateDSC (modlist [best3]) #测试上的聚合模型测试数据perfDSC (aggpred gsLC)