fix bug numerical weighting

statistikat · Apr 24, 2024 · 8e05e91 · 8e05e91
1 parent ee35a99
commit 8e05e91
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/recalib.R b/R/recalib.R
@@ -149,6 +149,7 @@ recalib <- function(
   # define default values for ipf
   ipfDefaults <- formals(ipf)
   ipfDefaults <- ipfDefaults[!names(ipfDefaults) %in% names(formals(recalib))]
+  ipfDefaults$numericalWeighting <- eval(parse(text = ipfDefaults$numericalWeighting))
   ellipsis <- list(...)
   # set these to FALSE by default
   ellipsis[["check_hh_vars"]] <- getEllipsis2("check_hh_vars",