showClass("raggedCoefV")
AR <- list()
AR[[1]] <- array(c(0.0973, -0.0499, 0.2927, 0.4256, ## VAR(2;4)
-0.0429, 0.0229, -0.1515, -0.1795,
-0.0837, -0.1060, -0.1530, 0.1947,
-0.1690, -0.0903, 0.1959, 0.0955), dim=c(2,2,4))
AR[[2]] <- array(c(0.3243, 0.2648, 0.4956, 0.2870, ## VAR(2;3)
-0.1488, 0.0454, -0.0593, -0.3629,
0.1314, 0.0274, 0.0637, 0.0485), dim=c(2,2,3))
new("raggedCoefV", AR)
new("raggedCoefV", a=AR, p=c(4,3))
Run the code above in your browser using DataLab