set.seed(100)
output_data <- reg_simulation3(N = 1000,
ni_lambda= 8,
beta = c(rep(1,6),rep(0,4)),
beta_b = 1.5,
dsq = 0.1,
sigmasq = 0.5,
delta = 0.6,
nu = 5.89,
muz = 0,
rho = 36.0,
sigmasq_z = 0.6,
zeta0 = -1.8,
zeta1 = 0.1)
y <- output_data$y
X <- output_data$X
survey_weight <- output_data$survey_weight
Run the code above in your browser using DataLab