aboutsummaryrefslogtreecommitdiff
path: root/inst/GUI/gmkin.R
diff options
context:
space:
mode:
Diffstat (limited to 'inst/GUI/gmkin.R')
-rw-r--r--inst/GUI/gmkin.R5
1 files changed, 3 insertions, 2 deletions
diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R
index 7566824..12d5d14 100644
--- a/inst/GUI/gmkin.R
+++ b/inst/GUI/gmkin.R
@@ -47,7 +47,7 @@ ds.df <- data.frame()
m.df <- data.frame()
f.df <- data.frame()
# Empty versions of meta data {{{2
-f.df.empty <- data.frame(Fit = "0",
+f.df.empty <- data.frame(Fit = as.integer(0),
Dataset = "",
Model = "",
stringsAsFactors = FALSE)
@@ -92,7 +92,8 @@ update_f.df <- function() {
for (fit.index in names(f)) {
f.count <- f.count + 1
ftmp <- f[[fit.index]]
- f.df[f.count, ] <<- c(as.character(f.count), ftmp$ds.index, ftmp$mkinmod$name)
+ f.df[f.count, "Fit"] <<- as.integer(f.count)
+ f.df[f.count, c("Dataset", "Model")] <<- c(ftmp$ds.index, ftmp$mkinmod$name)
}
}
# Initialise meta data objects {{{1

Contact - Imprint