diff options
| -rw-r--r-- | R/gmkinws.R | 12 | ||||
| -rw-r--r-- | data/FOCUS_2006.RData | bin | 6951 -> 16016 bytes | |||
| -rw-r--r-- | data/FOCUS_2006_Z.RData | bin | 51159 -> 110927 bytes |
3 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) } ) ) diff --git a/data/FOCUS_2006.RData b/data/FOCUS_2006.RData Binary files differindex d656949..0125b89 100644 --- a/data/FOCUS_2006.RData +++ b/data/FOCUS_2006.RData diff --git a/data/FOCUS_2006_Z.RData b/data/FOCUS_2006_Z.RData Binary files differindex 34cdb5e..be034e2 100644 --- a/data/FOCUS_2006_Z.RData +++ b/data/FOCUS_2006_Z.RData |