demo-eq-surr-RF: commented out saving of the serialized model

demo/demo-eq-surr-RF.R

 ### Licence: LGPL version 2.1
-## Time-stamp: "Last modified 2018-05-06 20:05:39 delucia"
+## Time-stamp: "Last modified 2018-08-29 15:15:50 delucia"
 
 db <- RPhreeFile(system.file("extdata", "phreeqc_kin.dat", package="RedModRphree"), is.db=TRUE)
 phreeqc::phrLoadDatabaseString(db)
@@ -117,7 +117,7 @@ names(mods) <- colnames(sam$result)
 ## })
 
 PlotModsInSample(mods, sam$result, sam$design)
-saveRDS(mods, "models_equilibrium_RF.rds")
+## saveRDS(mods, "models_equilibrium_RF.rds")
 
 ## fitControl2 <- trainControl(method = "none", 
 ##                             allowParallel = TRUE,