sim_parAcvf(2, 5)
sim_parAcvf(3, 5)
res <- sim_parAcvf(2, 6)
res
slMatrix(res)[3, 4, type = "tt"]
res <- sim_parAcvf(2, 4)
attr(res, "model")
acv <- res[ , ] # drop attributes
acv[2, 1 + 0]
acv[2, 1 + 1]
slMatrix(acv)[2, 0]
slMatrix(acv)[2, 1]
slMatrix(acv)[3, 4, type = "tt"]
slMatrix(acv)[1:2, 1:2, type = "tt"]
slMatrix(acv)[1:4, 1:4, type = "tt"]
## TODO: need method for autocorrelation()
## pc.acrf(acv)
## TODO: these need changing, after the change of the return values of sim_parAcvf
## pc.fcoeffs(acv, 2)
## pc.fcoeffs(acv, 3)
## pc.fcoeffs(acv, 4)
pcts:::calc_predictionCoefficients(acv, c(2, 2))
pcts:::calc_predictionCoefficients(acv, c(3, 3))
pcts:::calc_predictionCoefficients(acv, c(4, 4))
Run the code above in your browser using DataLab