diff options
Diffstat (limited to 'inst/GUI')
| -rw-r--r-- | inst/GUI/gmkin.R | 5 |
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
|