R/ar.model.prior.R

In wqmeeker/RTseries: Interactive Time Series Analysis Tools

ar.model.prior <- function() {
    structure(c(-1.98, -1.5, -1.5, -1, -1, -1, -0.5, -0.5, -0.5, -0.5, 0, 0, 0, 0, 0, 1.98, 1.5, 1.5, 
        1, 1, 1, 0.5, 0.5, 0.5, 0.5, -0.99, -0.98, -0.51, -0.99, -0.5, -0.01, -0.99, -0.5, 0.01, 0.49, 
        -0.99, -0.5, 0.01, 0.5, 0.99, -0.99, -0.98, -0.51, -0.99, -0.5, -0.01, -0.99, -0.5, 0.01, 0.49, 
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), .Dim = c(25L, 3L))
}