R/sb_sample.R

In binsmooth: Generate PDFs and CDFs from Binned Data

Defines functions sb_sample

Documented in sb_sample

sb_sample <- function(splinebinFit, n = 1) {
  if(splinebinFit$fitWarn) {
    warning("Inaccurate fit detected. Returning NA.\n")
    return(NA)
  }
  iCDF <- splinebinFit$splineInvCDF
  return(iCDF(stats::runif(n)))
}

Try the binsmooth package in your browser