# NOT RUN {
n <- 300; p <- 15
signal <- 0.75
rank <- 3
singular_vals <- c(1, 0.75, 0.5)
try <- testVAR(n, p, struct = "LS", signal = signal, rank = rank,
singular_vals = singular_vals)
data <- as.matrix(try$series)
# }
Run the code above in your browser using DataLab