data(ER.deg)
#--- a gene expression matrix
exp <- ER.deg$exp
#--- a sample from gx!!
idx <- sample(1:nrow(exp))[1:100]
exp <- exp[idx,]
## Not run:
#
# res <- cea(x=exp, nper=100) #ps set 'nper' for at least 1000
# ## End(Not run)
Run the code above in your browser using DataLab