R/regarima_rslts.R

In palatej/rjd3toolkit: Utility Functions around 'JDemetra+ 3.0'

#' @include protobuf.R
NULL

#' @export
#' @rdname jd3_utilities
.p2r_regarima_rslts <- function(p) {
    output <- list(
        description = .p2r_regarima_description(p$description),
        estimation = .p2r_regarima_estimation(p$estimation),
        diagnostics = .p2r_regarima_diagnostics(p$diagnostics)
    )
    class(output) <- "JD3_REGARIMA_RSLTS"
    return(output)
}

.p2r_regarima_description <- function(p) {
    return(list(
        log = p$log,
        preadjustment = .enum_extract(modelling.LengthOfPeriod, p$preadjustment),
        arima = .p2r_spec_sarima(p$arima),
        variables = .p2r_variables(p$variables)
    ))
}

.p2r_regarima_estimation <- function(p) {
    return(list(
        y = p$y,
        X = .p2r_matrix(p$x),
        parameters = .p2r_parameters_estimation(p$parameters),
        b = p$b,
        bvar = .p2r_matrix(p$bcovariance),
        likelihood = .p2r_likelihood(p$likelihood),
        res = p$residuals
    ))
}

.p2r_regarima_diagnostics <- function(p) {
    tlist <- lapply(p$residuals_tests, function(z) {
        .p2r_test(z$value)
    })
    tnames <- lapply(p$residuals_tests, function(z) {
        z$key
    })
    testonresiduals <- `names<-`(tlist, tnames)
    return(testonresiduals)
}