R/is.hypoexp.R

In sdprisk: Measures of Risk for the Compound Poisson Risk Process with Diffusion

Defines functions is.hypoexp is.hypoexp.default is.hypoexp.claiminfo is.hypoexp.riskproc

Documented in is.hypoexp

is.hypoexp <- function(x) {
    UseMethod('is.hypoexp')
}

is.hypoexp.default <- function(x) {
    if (!is.list(x)) {
        x <- as.list(x)
    }
    'hypoexp' %in% names(x)
}

is.hypoexp.claiminfo <- function(x) {
    'hypoexp' %in% names(x)
}

is.hypoexp.riskproc <- function(x) {
    is.hypoexp(x[['claims']])
}

Try the sdprisk package in your browser