R/is.diff.R

Defines functions is.diff

is.diff <- function(model) {
    if (model$local["d"] > 0) 
        return(TRUE)
    seasonal.part <- model$seasonal
    if (is.list(seasonal.part)) {
        if (seasonal.part$order["D"] > 0) 
            return(TRUE)
    } else {
        if (seasonal.part["D"] > 0) 
            return(TRUE)
    }
    return(FALSE)
}
wqmeeker/RTseries documentation built on Dec. 31, 2022, 10 a.m.