From 47ba6a5f8251c943c06705ce838c562541874b03 Mon Sep 17 00:00:00 2001 From: Jan Kapar Date: Thu, 3 Apr 2025 00:29:25 +0200 Subject: [PATCH] use mia when sampling NAs --- R/shortcut_functions.R | 1 + 1 file changed, 1 insertion(+) diff --git a/R/shortcut_functions.R b/R/shortcut_functions.R index 4bb28054..9f7f6c8c 100644 --- a/R/shortcut_functions.R +++ b/R/shortcut_functions.R @@ -123,6 +123,7 @@ rarf <- function(x, n_synth = NULL, ...) { forge_args <- dot_args[names(dot_args) %in% arg_names$forge] if (!("verbose" %in% names(arf_args))) arf_args$verbose = F + if ("sample_NAs" %in% names(forge_args) && forge_args$sample_NAs) arf_args$mia <- TRUE if (!("arf" %in% names(arf_args) | "params" %in% names(forde_args))) arf <- do.call(adversarial_rf, c(x = list(x), arf_args)) if (!("params" %in% names(forde_args))) params <- do.call(forde, c(arf = list(arf), x = list(x), forde_args))