R/common.R

In rvgtest: Tools for Analyzing Non-Uniform Pseudo-Random Variate Generators

## --------------------------------------------------------------------------
##
## Common auxiliary functions
##
## --------------------------------------------------------------------------

unuran.distr.class <- function (unr)
  ## ------------------------------------------------------------------------
  ## Get distribution class of UNU.RAN generator object 'unr'.
  ## ------------------------------------------------------------------------
  ## unr    : object of class "unuran"
  ## ------------------------------------------------------------------------
  ## return:
  ## string that contains name of class
  ## ------------------------------------------------------------------------
{
  unuran.details(unr, show=FALSE, return.list=TRUE, debug=FALSE)$distr.class
}

## --------------------------------------------------------------------------