diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2015-10-25 01:10:34 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2015-10-25 02:38:11 +0200 |
| commit | 90076c885d53017046f4c0dd50839f6548fab0fb (patch) | |
| tree | 45a06cdbebbc8c5e041a34b0ff655347739dcfcb /R/gmkinws.R | |
| parent | 7306b336702980f0e4ec0fb8c6fb6034971f0357 (diff) | |
Working state
- Added add_f method to gmkinws
- Showing the plot works
- delete and keep fit buttons in Results
- Add result naming
- Improve plot title
Diffstat (limited to 'R/gmkinws.R')
| -rw-r--r-- | R/gmkinws.R | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/R/gmkinws.R b/R/gmkinws.R index 9ef68e1..f43c8a1 100644 --- a/R/gmkinws.R +++ b/R/gmkinws.R @@ -131,6 +131,13 @@ gmkinws <- R6Class("gmkinws", invisible(self) }, + add_f = function(f) { + if (is.na(self$f[1])) self$f <- plyr::compact(f) + else self$f = append(self$f, plyr::compact(f)) + + invisible(self) + }, + delete_f = function(i) { if (any(sapply(self$f[i], is.null))) stop("Could not delete fit(s) ", paste(i, collapse = ", ")) |