# NOT RUN {
data(sampleData)
mod<-mogavs(y~.,sampleData,maxGenerations=20)
#get the best model with 15 variables
bm<-getBestModel(mod,15,method=NULL)
#transform best model into a linear model
mogavsToLinear(bm,1,sampleData)
# }
Run the code above in your browser using DataLab