diff --git a/R/recalib.R b/R/recalib.R index b1f43ef..9c0ef29 100644 --- 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",