## M-H algorithm for NOdata with acceptance rate about 40\%.
data(NOdata)
attach(NOdata)
beta<-matrix(c(1.3, -0.1, 0.6, 0.1), 2, 2)
sigma<-c(.02, .05)
MH.out<-regmixMH(Equivalence, NO, beta = beta, s = sigma,
sampsize = 10000, omega = .0013)
plot(MH.out, summary.plots = TRUE, burnin = 9950,
alpha = 0.01)Run the code above in your browser using DataLab