survival vec needs to be risk

ropensci · Jan 19, 2024 · a13cec2 · a13cec2
1 parent ab0fa93
commit a13cec2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/vignettes/oobag.Rmd b/vignettes/oobag.Rmd
@@ -115,7 +115,7 @@ oobag_brier_surv <- function(y_mat, w_vec, s_vec){
  }
  
  # if not available, use a dummy version
- mean( (y_mat[,2] - s_vec)^2 )
+ mean( (y_mat[,2] - (1-s_vec))^2 )
  
  
 }