Correct coalesce call

kosukeimai · May 24, 2024 · b5381d9 · b5381d9
1 parent 4519f6c
commit b5381d9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/race_prediction_funs.R b/R/race_prediction_funs.R
@@ -417,7 +417,7 @@ predict_race_new <- function(
 
   if(impute.missing){
    for(i in ncol(preds)){
-     preds[, i] <- dplyr::coalesce(df[, i], race.margin[i])
+     preds[, i] <- dplyr::coalesce(preds[, i], race.margin[i])
    }
   }
   ## Normalize (recycle marginal)