R/callCalculateCoefficientsForRandoAndRational.R

In ClusterVAR: Fitting Latent Class Vector-Autoregressive (VAR) Models

callCalculateCoefficientsForRandoAndRational <- function(Covariates, K, N, nDepVar, qqq, HighestLag, LowestLag,
                                                         PersEnd, PersStart, Y, X, NewPredictableObs, LaggedPredictObs)
{


    CoeffsForRandoAndRationalList = vector(mode = "list", HighestLag) # list elements of 1 to LowestLag are empty
    for(lagCounter in LowestLag:HighestLag)
    {
        CoeffsForRandoAndRationalList[[lagCounter]] =
          calculateCoefficientsForRandoAndRational(Covariates = Covariates, K = K, N = N,
                                                     nDepVar = nDepVar, qqq = qqq, Lag = lagCounter,
                                                     PersEnd = PersEnd, PersStart = PersStart, Y = Y,
                                                     X = X, NewPredictableObs = NewPredictableObs[[lagCounter]],
                                                     LaggedPredictObs = LaggedPredictObs[[lagCounter]])
    }

    invisible(CoeffsForRandoAndRationalList)

}