diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-11-23 17:09:51 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-11-23 17:33:04 +0100 |
| commit | db6b3a27ceed666a80658df6cdb1092e35de18c3 (patch) | |
| tree | b5fdce8d34b8666ad7d8540fc2ade0884dbd0e2f /inst | |
| parent | 0ad5915830bf03aac6c4cc70becc886e2d02f5b9 (diff) | |
Faster fit configuration by using "Marq"
Diffstat (limited to 'inst')
| -rw-r--r-- | inst/GUI/gmkin.R | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R index 0bd3c9b..7fef7a1 100644 --- a/inst/GUI/gmkin.R +++ b/inst/GUI/gmkin.R @@ -248,6 +248,7 @@ configure_fit_handler = function(h, ...) { m.i <<- as.character(svalue(m.gtable))
ftmp <<- suppressWarnings(mkinfit(m[[m.i]],
override(ds[[ds.i]]$data),
+ method.modFit = "Marq",
err = "err",
control.modFit = list(maxiter = 0)))
ftmp$ds.index <<- ds.i
@@ -266,7 +267,7 @@ configure_fit_handler = function(h, ...) { "none", ftmp$reweight.method)
svalue(f.gg.opts.reweight.tol) <<- ftmp$reweight.tol
svalue(f.gg.opts.reweight.max.iter) <<- ftmp$reweight.max.iter
- svalue(f.gg.opts.method.modFit) <<- ftmp$method.modFit
+ svalue(f.gg.opts.method.modFit) <<- "Port"
svalue(f.gg.opts.maxit.modFit) <<- ftmp$maxit.modFit
f.gg.parms[,] <- get_Parameters(stmp, FALSE)
delete(f.gg.plotopts, f.gg.po.obssel)
@@ -701,6 +702,7 @@ show_plot <- function(type, default = FALSE) { fixed_parms = names(deparms),
fixed_initials = names(stateparms),
err = "err",
+ method.modFit = "Marq",
control.modFit = list(maxiter = 0)))
ftmp$ds.index <<- ds.i
ftmp$ds <<- ds[[ds.i]]
@@ -786,6 +788,7 @@ pf <- gframe("Dataset 1, Model SFO", horizontal = TRUE, pf.p <- ggroup(cont = pf, horizontal = FALSE)
ftmp <- suppressWarnings(mkinfit(m[[m.cur]], override(ds[[ds.i]]$data),
err = "err",
+ method.modFit = "Marq",
control.modFit = list(maxiter = 0)))
ftmp$ds.index = ds.i
ftmp$ds = ds[[ds.i]]
|