is.PGP_Model function

Check if an object is a PGP_Model

Checks if the class of an object is 'PGP_Model'

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)