Skip to content
GitLab
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
Hide whitespace changes
Inline Side-by-side
demo/demo-eq-surr-RF.R
View file @ a8bd1388
### Licence: LGPL version 2.1 ### 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) db <- RPhreeFile(system.file("extdata", "phreeqc_kin.dat", package="RedModRphree"), is.db=TRUE)
phreeqc::phrLoadDatabaseString(db) phreeqc::phrLoadDatabaseString(db)
...@@ -117,7 +117,7 @@ names(mods) <- colnames(sam$result) ...@@ -117,7 +117,7 @@ names(mods) <- colnames(sam$result)
## }) ## })
PlotModsInSample(mods, sam$result, sam$design) PlotModsInSample(mods, sam$result, sam$design)
saveRDS(mods, "models_equilibrium_RF.rds") ## saveRDS(mods, "models_equilibrium_RF.rds")
## fitControl2 <- trainControl(method = "none", ## fitControl2 <- trainControl(method = "none",
## allowParallel = TRUE, ## allowParallel = TRUE,
......
Supports Markdown
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