From 9a6cbc65b859fdf40f2d54bb79fe22fa4c9f99fb Mon Sep 17 00:00:00 2001 From: Drew Herren Date: Mon, 6 Jan 2025 14:25:43 -0600 Subject: [PATCH] Fix missing integer guard in the propensity_covariate = "none" code path --- R/bcf.R | 1 + 1 file changed, 1 insertion(+) diff --git a/R/bcf.R b/R/bcf.R index 921b7570..4a645986 100644 --- a/R/bcf.R +++ b/R/bcf.R @@ -596,6 +596,7 @@ bcf <- function(X_train, Z_train, y_train, pi_train = NULL, group_ids_train = NU } # Update feature_types and covariates + feature_types <- as.integer(feature_types) if (propensity_covariate != "none") { feature_types <- as.integer(c(feature_types,0)) X_train <- cbind(X_train, pi_train)