# NOT RUN {
set.seed(2000)
N <- 30
K <- 2
TT <- 500
A <- matrix(rnorm(N*K, 0, 0.3), N, K)
B <- matrix(c(0.8,0,0,0.5), K, K)
C <- matrix(c(5,0,0,4), K, K)
mu <- c(0.3, 0.7)
D <- matrix(c(0.4,0,0,0.4), K, K)
outliers_discre <- matrix(c(117, 2, 10, 40, 8, 200), 2, 3, byrow = TRUE)
q <- 0.005
y <- Simulations(N = N,
TT = TT,
K = K,
A = A,
B = B,
C = C,
mu = mu,
D = D,
outliers_discre = outliers_discre,
q = q)
# }
Run the code above in your browser using DataLab