eset_test <- new("ExpressionSet", exprs=matrix(rnorm(400,8,2),100,4))
pData(eset_test) <- data.frame("class"=c("A", "A", "B", "B"))
TtestRes <- calculateTtest(eset_test)
plotErrorBars(eset_test, topGenes(TtestRes))
Run the code above in your browser using DataLab