inst/unitTests/test_get_cutpoints.R

In wheelerb/iCARE: A Tool for Individualized Coherent Absolute Risk Estimation (iCARE)

test_get_cutpoints <- function() {

  cutpoints <- 1:10
  ref_LP    <- 0:100
  miss_LP   <- 5.5
  probs     <- c(0, 0.25, 0.5, 0.75, 1)
  miss_perc <- 5

  ret       <- iCARE:::get_cutpoints(ref_LP, probs) 

  checkEquals(sum(ret == c(0, 25, 50, 75, 100, Inf)), 6)
  
}