From 00b8c6fb49a5f2fb15022f725fbf3565ccca0eaa Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 9 Dec 2015 11:44:58 +0100 Subject: Fix sorting of tables in results view --- inst/GUI/gmkin.R | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'inst') 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) -- cgit v1.2.1