aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2013-10-16 19:43:39 +0000
committerjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2013-10-16 19:43:39 +0000
commit4c707008a67f2559c76199c4b95148d5ab1d3817 (patch)
tree12533ed85051f813262efbbc1421a7af440a08bf
parentebf00aeb389424b09be4a1051044291b01555153 (diff)
- One possibility to handle the parameters each with several named widgets, a bit clumsy
git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@116 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
-rw-r--r--inst/GUI/simple.R41
1 files changed, 22 insertions, 19 deletions
diff --git a/inst/GUI/simple.R b/inst/GUI/simple.R
index 91b23d10..f5eafb62 100644
--- a/inst/GUI/simple.R
+++ b/inst/GUI/simple.R
@@ -74,10 +74,15 @@ override <- function(d) {
value = ifelse(is.na(d$override), d$value, d$override),
err = d$err)
}
-f <- f.gg <- s <- list()
+f <- s <- f.gg <- f.gg.rows <- list()
+f.gg.ini <- f.gg.fixed <- f.gg.optim <- list()
for (ds.i in 1:length(ds)) {
f[[as.character(ds.i)]] <- list()
f.gg[[as.character(ds.i)]] <- list()
+ f.gg.rows[[as.character(ds.i)]] <- list()
+ f.gg.ini[[as.character(ds.i)]] <- list()
+ f.gg.fixed[[as.character(ds.i)]] <- list()
+ f.gg.optim[[as.character(ds.i)]] <- list()
s[[as.character(ds.i)]] <- list()
}
# Data frames with datasets, models and fits to be continuosly updated {{{1
@@ -220,14 +225,25 @@ configure_fits_handler <- function(h, ...) {
m.sel <- as.character(svalue(m.gtable))
for (ds.i in ds.sel) {
for (m.i in m.sel) {
- f.gg[[ds.i]][[m.i]] <- ggroup(cont = f.gn[[ds.i]], label = m[[m.i]]$name)
- f[[ds.i]][[m.i]] <- mkinfit(m[[m.i]], override(ds[[ds.i]]$data),
+ f.gg[[ds.i]][[m.i]] <<- ggroup(cont = f.gn[[ds.i]], label = m[[m.i]]$name)
+ f.gg.parms <- gvbox(cont = f.gg[[ds.i]][[m.i]])
+ f.gg.rows[[ds.i]][[m.i]] <<- list()
+ f.gg.ini[[ds.i]][[m.i]] <<- list()
+ f[[ds.i]][[m.i]] <- ftmp <- mkinfit(m[[m.i]], override(ds[[ds.i]]$data),
err = "err", control.modFit = list(maxiter = 0))
- s[[ds.i]][[m.i]] <- summary(f[[ds.i]][[m.i]])
- glabel(s[[ds.i]][[m.i]]$date.fit, cont = f.gg[[ds.i]][[m.i]])
+ s[[ds.i]][[m.i]] <- stmp <- summary(ftmp)
+ pars <- rbind(stmp$start[1:2], stmp$fixed)
+ pars$fixed <- c(rep(FALSE, length(stmp$start$value)),
+ rep(TRUE, length(stmp$fixed$value)))
+
+ for (parm in c(paste0(names(ftmp$mkinmod$map), "_0"), names(ftmp$bparms.ode))) {
+ f.gg.rows[[ds.i]][[m.i]][[parm]] <- ggroup(cont = f.gg.parms)
+ glabel(parm, cont = f.gg.rows[[ds.i]][[m.i]][[parm]])
+ f.gg.ini[[ds.i]][[m.i]][[parm]] <- gedit(pars[parm, "value"],
+ cont = f.gg.rows[[ds.i]][[m.i]][[parm]])
+ }
}
}
-
}
dsconfig <- gbutton("Configure fits for selections", cont = dsmsel,
handler = configure_fits_handler)
@@ -552,18 +568,5 @@ update_plot <- function() {
svalue(plots[[ds.cur]]) <<- svg_plot(ds.cur)
}
-# Show the fits {{{1
-#f[["1"]][["1"]] <- mkinfit(m[["1"]], override(ds[["1"]]$data), err = "err")
-#f[["1"]][["1"]]$dataset_title = ds[["1"]]$title
-#f[["1"]][["1"]]$model_name = m[["1"]]$name
-#mf <- gnotebook(cont = g)
-# s <- s.gt <- list()
-#s[[1]] <- summary(fits[[1]])
-#for (i in 1:length(fits)) {
-# fits[[i]] <- gframe(fits[[1]]$name, cont = mf, label = i)
-# s.tmp <- capture.output(print(s[[i]]))
-# s.gt[[i]] <- gtext(s.tmp, width = 600, cont = fits[[i]],
-# use.codemirror = TRUE)
-#}
# 1}}}
# vim: set foldmethod=marker foldlevel=0 ts=2 sw=2 expandtab:

Contact - Imprint