Commit a8bd1388 authored by Marco De Lucia's avatar Marco De Lucia
Browse files

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

parent 6508ec1b
### 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,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment