Sim_Loglik(rep(1:4,each=5), runif(4,min = 0, max = 1),
matrix(runif(400,min=4,max=20),nrow=20,byrow=TRUE),0.4, 2,rep(3,20),0.5,1,1,
10,20,4,sample(c(0,1),replace = TRUE, size = 20),0.6,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