# \donttest{
# temporary demonstration project copy
cv_dir <- demoProject()
# load temporary demonstration project
x <- RPhosFate(
cv_dir = cv_dir,
ls_ini = TRUE
)
# presupposed method calls
x <- firstRun(x, "SS")
x <- snapGauges(x)
x <- autoCalibrate2(
x,
"SS",
col = "SS_load",
metric = "KGE",
method = "L-BFGS-B",
lower = c(1e-3, 0),
upper = c(2e-3, 2e-3),
control = list(fnscale = -1, parscale = c(1e-3, 1e-3), factr = 1e12)
)# }
Run the code above in your browser using DataLab