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