aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2015-12-09 11:44:58 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2015-12-09 11:44:58 +0100
commit785608cc0933aedec9c2b1d96e8681fb29a05578 (patch)
treeaca291ecf88033ca11e266bab19cc27c3a2a2d0a
parent54729e55912608fefc1b1be08d01d9cbeb381d12 (diff)
Fix sorting of tables in results view
-rw-r--r--inst/GUI/gmkin.R10
1 files changed, 6 insertions, 4 deletions
diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R
index 954fe74..b58f2e7 100644
--- a/inst/GUI/gmkin.R
+++ b/inst/GUI/gmkin.R
@@ -314,12 +314,14 @@ update_f_conf <- function() { # {{{3
}
update_f_results <- function() { # {{{3
svalue(r.name) <- ftmp$name
- r.parameters[] <- cbind(rownames(stmp$bpar), stmp$bpar[, c(1, 4, 5, 6)])
+ r.parameters[] <- cbind(Parameter = rownames(stmp$bpar), stmp$bpar[, c(1, 4, 5, 6)])
err.min <- 100 * stmp$errmin$err.min
- r.frames.chi2.gt[] <- cbind(rownames(stmp$errmin), signif(err.min, 3),
- stmp$errmin[, c(2, 3)])
+ r.frames.chi2.gt[] <- cbind(Variable = rownames(stmp$errmin),
+ Error = signif(err.min, 3),
+ n.opt = stmp$errmin$n.optim,
+ df = stmp$errmin$df)
if (is.null(stmp$ff)) r.frames.ff.gt[] <- ff.df.empty
- else r.frames.ff.gt[] <- cbind(names(stmp$ff), round(stmp$ff, 4))
+ else r.frames.ff.gt[] <- cbind(Path = names(stmp$ff), ff = round(stmp$ff, 4))
distimes <- format(stmp$distimes, digits = 3)
delete(r.frames.distimes, r.frames.distimes.gt)
delete(r.frames, r.frames.distimes)

Contact - Imprint