diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-05-09 12:58:25 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-05-09 12:58:25 +0200 |
| commit | 7e1b040f3b4ce7b2ee905e29c2fc5945e9c6ed2f (patch) | |
| tree | 30b96da5dae2583b1c5aeac037c4a813bfdd7085 /inst/GUI/gmkin.R | |
| parent | dbf6f0b96ede8b29e5f13c27949c1305896a7d97 (diff) | |
Set all fit options when loading a fit
Diffstat (limited to 'inst/GUI/gmkin.R')
| -rw-r--r-- | inst/GUI/gmkin.R | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R index 7662443..0c7755f 100644 --- a/inst/GUI/gmkin.R +++ b/inst/GUI/gmkin.R @@ -903,6 +903,10 @@ update_plotting_and_fitting <- function() { get.initials.gc <<- gcombobox(paste("Fit", f.df$Fit), cont = f.gg.buttons)
svalue(f.gg.opts.st) <- ftmp$solution_type
+ svalue(f.gg.opts.atol) <- ftmp$atol
+ svalue(f.gg.opts.rtol) <- ftmp$rtol
+ svalue(f.gg.opts.transform_rates) <- ftmp$transform_rates
+ svalue(f.gg.opts.transform_fractions) <- ftmp$transform_fractions
svalue(f.gg.opts.weight) <- ftmp$weight.ini
svalue(f.gg.opts.reweight.method) <- ifelse(is.null(ftmp$reweight.method),
"none",
|