### R代码来自Vignette Source'Vignettes/biobase/inst/doc/esapply.rnw'############################################################## ###代码块数字1：hide #########################################################################################数字2：r ################################ print（sample.expressionset）print（exprs（sample.expressionset）[1，]）print（pdata（sample.expressionset）[1：2,1：3]）#########################################：r ############################### print（rbind（exprs（sample.expressionset [1，]）），性别<-t（pdata（sample.expressionset））[1，]））###############################################################################函数（y，x）{ys < - split（y，x）中值（ys [[1]]） - 中值（ys [[2]]）} #########################################################ber 5：r ################################## print（apply（exprs（sample.expressionset [1，，drop = f]）），1，medcontr，pdata（sample.expressionset）[[“ sex'']））#######################################6：r ################################# medcontr1 < - function（y）{ys < - split（y，sex）中值（ys [[1]]） - 中值（ys [[2]]）}}} print（esapply（sample.expressionset，1，1），medcontr1）[1]）##################################################### ### ###代码块编号7：esapply.rnw：126-127 ##############################################################