diff options
Diffstat (limited to 'R/gmkinws.R')
| -rw-r--r-- | R/gmkinws.R | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/R/gmkinws.R b/R/gmkinws.R index f43c8a1..87eaf8a 100644 --- a/R/gmkinws.R +++ b/R/gmkinws.R @@ -36,6 +36,7 @@ gmkinws <- R6Class("gmkinws", observed = NULL, ds = NA, m = NA, + ftmp = list(Name = ""), f = NA, initialize = function(ds, m, f) { @@ -145,6 +146,17 @@ gmkinws <- R6Class("gmkinws", self$f <- self$f[-i] if (length(self$f) == 0) self$f <- NA invisible(self) + }, + + clear_compiled = function() { + for (i in seq_along(self$m)) { + self$m[[i]]$cf <- NULL + } + self$ftmp$mkinmod$cf <- NULL + for (i in seq_along(self$f)) { + self$f[[i]]$mkinmod$cf <- NULL + } + invisible(self) } ) ) |