R/inverse_sample.R

In n8thangreen/VANTDET: Cost-Effectiveness Decision Tree

Defines functions inverse_sample

Documented in inverse_sample

#' Inverse Sample
#'
#' @param cdf Cumulative density function
#'
#' @return sampled realisation
#' @export
#'
#' @examples
#'
inverse_sample <- function(cdf) {

  cdf$x[sum(runif(1) > cdf$y)]
}