Fixed R bug

andrewherren · andrewherren · commit 282219cff69c · 2025-06-05T01:05:12.000-06:00
diff --git a/R/kernel.R b/R/kernel.R
@@ -103,7 +103,7 @@ computeForestLeafIndices <- function(model_object, covariates, forest_type=NULL,
                     stop("propensity must be provided for this model")
                 }
                 # Compute propensity score using the internal bart model
-                propensity <- rowMeans(predict(model_object$bart_propensity_model, X)$y_hat)
+                propensity <- rowMeans(predict(model_object$bart_propensity_model, covariates)$y_hat)
             }
             covariates_processed <- cbind(covariates_processed, propensity)
         }

Original file line number	Diff line number	Diff line change
`@@ -103,7 +103,7 @@ computeForestLeafIndices <- function(model_object, covariates, forest_type=NULL,`
`103`	`103`	`stop("propensity must be provided for this model")`
`104`	`104`	`}`
`105`	`105`	`# Compute propensity score using the internal bart model`
`106`		`- propensity <- rowMeans(predict(model_object$bart_propensity_model, X)$y_hat)`
	`106`	`+ propensity <- rowMeans(predict(model_object$bart_propensity_model, covariates)$y_hat)`
`107`	`107`	`}`
`108`	`108`	`covariates_processed <- cbind(covariates_processed, propensity)`
`109`	`109`	`}`