R/regarima_generic.R

In rjd3x13: Seasonal Adjustment with 'X-13' in 'JDemetra+' 3.x

#' @export
coef.JD3_REGARIMA_OUTPUT <- function(
    object,
    component = c("regression", "arima", "both"),
    ...
) {
    coef(object$result, component = component, ...)
}
#' @export
logLik.JD3_REGARIMA_OUTPUT <- function(object, ...) {
    logLik(object$result, ...)
}
#' @export
vcov.JD3_REGARIMA_OUTPUT <- function(object, ...) {
    vcov(object$result, ...)
}
#' @export
df.residual.JD3_REGARIMA_OUTPUT <- function(object, ...) {
    df.residual(object$result, ...)
}
#' @export
nobs.JD3_REGARIMA_OUTPUT <- function(object, ...) {
    nobs(object$result, ...)
}
#' @export
residuals.JD3_REGARIMA_OUTPUT <- function(object, ...) {
    residuals(object$result, ...)
}
#' @export
summary.JD3_REGARIMA_OUTPUT <- function(object, ...) {
    x <- summary(object$result, ...)
    x$method <- "RegARIMA"
    x
}
#' @export
print.JD3_REGARIMA_OUTPUT <- function(
    x,
    summary_info = getOption("summary_info"),
    ...
) {
    cat("Method: RegARIMA\n")
    print(x$result, summary_info = summary_info, ...)
}
#' @export
diagnostics.JD3_REGARIMA_OUTPUT <- function(x, ...) {
    diagnostics(x$result, ...)
}

#' @export
coef.JD3_X13_OUTPUT <- function(
    object,
    component = c("regression", "arima", "both"),
    ...
) {
    coef(object$result$preprocessing, component = component, ...)
}
#' @export
logLik.JD3_X13_OUTPUT <- function(object, ...) {
    logLik(object$result$preprocessing, ...)
}
#' @export
vcov.JD3_X13_OUTPUT <- function(object, ...) {
    vcov(object$result$preprocessing, ...)
}
#' @export
df.residual.JD3_X13_OUTPUT <- function(object, ...) {
    df.residual(object$result$preprocessing, ...)
}
#' @export
nobs.JD3_X13_OUTPUT <- function(object, ...) {
    nobs(object$result$preprocessing, ...)
}
#' @export
residuals.JD3_X13_OUTPUT <- function(object, ...) {
    residuals(object$result$preprocessing, ...)
}
#' @export
residuals.JD3_X13_OUTPUT <- function(object, ...) {
    residuals(object$result$preprocessing, ...)
}