et <- extraTrees(iris[,1:4], iris$Species)
prepareForSave(et)
## saving to a file
save(et, file="temp.Rdata")
## testing: remove et and load it back from file
rm(list = "et")
load("temp.Rdata")
predict(et, iris[,1:4])
Run the code above in your browser using DataLab