is.NAWRUmodel {RGAP}

NAWRUodel object check

Description

Tests whether the input object is a valid object of class NAWRUmodel.

Usage

is.NAWRUmodel(object, return.logical = FALSE)

Arguments

object

An object to be tested.

return.logical

If return.logical = FALSE (default), an error message is printed if the object is not of class NAWRUmodel. If return.logical = TRUE, a logical value is returned.

Value

A logical value or nothing, depending on the value of return.logical.

Examples

# load data for France
data("gap")
tsList <- amecoData2input(gap$France, alpha = 0.65)

# Traditional phillips curve
model <- NAWRUmodel(tsl = tsList, trend = "RW2", cycle = "AR2", type = "NKP", cycleLag = 0:1)
is.NAWRUmodel(model, return.logical = TRUE)
attr(model, "phillips curve")$cycleLag <- 0
is.NAWRUmodel(model, return.logical = TRUE)