Sim_Estpar(rep(1:4,each=5),runif(4,min = 0, max = 1),
matrix(runif(400,min=4,max=20),nrow=20,byrow = TRUE),0.4,3,0.2,0.5,1,1,4,10,
20,sample(c(0,1),replace = TRUE, size = 20),rep(3,20),diag(4),
matrix(c(0,-1,0,-1,-1,0,-1,-1,0,-1,0,-1,-1,-1,-1,0),nrow=4,byrow=TRUE),
runif(20, 0, 1),runif(4, 0, 1))
Run the code above in your browser using DataLab