powered by
gcontrol(data,zeta,kappa,tau2,epsilon,ngib,burn,idum)
test<-c(1,2,3,4,5,6, 1,2,1,23,1,2, 100,1,2,12,1,1, 1,2,3,4,5,61, 1,2,11,23,1,2, 10,11,2,12,1,11) test<-t(matrix(test,nrow=6)) gcontrol(test)
Run the code above in your browser using DataLab