library(Biobase)
library(LMGene)
#data
data(sample.mat)
data(vlist)
Smpdt <- neweS(sample.mat,vlist)
data(sample.eS)
identical(exprs(sample.eS), exprs(Smpdt))
identical(pData(sample.eS), pData(Smpdt))
Run the code above in your browser using DataLab