# NOT RUN {
data(Realized)
y <- Realized[-1,1:10]
y <- y[-nrow(y),]
st <- Realized[-nrow(Realized),1]
st <- st[-length(st)]
starting <- startingVLSTAR(y, p = 1, n.combi = 3,
singlecgamma = FALSE, st = st,
ncores = 1)
# }
Run the code above in your browser using DataLab