if(interactive()) {
data(e1)
data(e2)
RGSEAfix(e1,e2, queryclasses=colnames(e1), refclasses=colnames(e2),
random=20000, featurenum=1000, iteration=100)->test
RGSEApredict(test[[1]], colnames(e2))
}
Run the code above in your browser using DataLab