R/sample.R

In davharris/mistnet2: Neural Networks with Latent Random Variables

#' Draw random samples from an object
#' @param object An object
#' @param ... further arguments passed to or from other methods.
#' @export
draw_samples = function(object, ...){
  UseMethod("draw_samples")
}

#' Sample random numbers from a probability distribution
#' @param object an \code{\link{distribution}} object
#' @param ... additional arguments passed to \code{\link{get_values}}
#' @export
draw_samples.distribution = function(object, ...){
  do.call(
    object$r,
    get_values(object, ...)
  )
}