## load example data
data(example.lumi)
## get the gene expression mean for one chip
u <- exprs(example.lumi)[,1]
## get the gene standard deviation for one chip
std <- se.exprs(example.lumi)[,1]
## do variance stabilizing transform
transformedU <- vst(u, std)
## do variance stabilizing transform with plotting intermediate result
transformedU <- vst(u, std, ifPlot=TRUE)
Run the code above in your browser using DataLab