# NOT RUN {
N <- 310
rho <- 0.5
alpha <- 0.05
beta <- 0.2
theta <- c(0,0)
theta0 <- 0
sigma0 <- 1
epsilon <- 0.5
pstar <- 0.20
nSim <- 1000
Seed <- 6
res <- AED2_SSR.sim(N1 = N, rho = rho, alpha = alpha,
beta = beta, theta = theta, theta0 = theta0,
sigma0 = sigma0, pstar = pstar, epsilon = epsilon,
nSim = nSim, Seed = Seed)
# }
Run the code above in your browser using DataLab