### R代码从vignette源的esApply。Rnw ' ################################################### ### 代码块1号:R.hide ################################################### 库(Biobase)数据(sample.ExpressionSet ) ################################################### ### 代码块2号:R ################################################### 打印(sample.ExpressionSet)打印(exprs (sample.ExpressionSet)[1])打印(pData (sample.ExpressionSet) [1:2, 1:3 ]) ################################################### ### 代码块3号:R ################################################### 打印(rbind (exprs (sample.ExpressionSet[1]),性< - t (pData (sample.ExpressionSet)) (1 ,])) ################################################### ### 代码块4号:R ################################################### medContr < -函数(y、x) {y < -分裂(y, x)中位数(y[[1]]) -(中位数y [[2 ]]) } ################################################### ### 代码块5号:R ################################################### 打印(应用(exprs (sample.ExpressionSet [1,, = F]), 1, medContr, pData (sample.ExpressionSet)[[”性 "]])) ################################################### ### 代码块6号:R ################################################### medContr1 < -函数(y) {y < -分裂(y,性)中位数(y [[1]]) - (ys[[2]])中位数}print (esApply(样本。ExpressionSet 1 medContr1) [1 ]) ################################################### ### 代码块7号:esApply。Rnw: 126 - 127 ################################################### sessionInfo ()