is.PGP_Model {Pareto}

Check if an object is a PGP_Model

Description

Checks if the class of an object is 'PGP_Model'

Usage

is.PGP_Model(x)

Arguments

x

Object to be checked.

Examples

PGPM <- PGP_Model(2, 1000, 1, 2, dispersion = 2)
PGPM
is.valid.PGP_Model(PGPM)
is.valid.PGP_Model(PGPM, comment = TRUE)

PGPM$alpha_tail <- -2
is.PGP_Model(PGPM)
is.valid.PGP_Model(PGPM)
is.valid.PGP_Model(PGPM, comment = TRUE)