## Not run:
# library(dismo); library(MCMCpack);
# data(Anguilla_train)
# b0mean <- 0
# b0precision <- (1/5)^2
# mcmclen = 1000
# burn=10000
# MCMC.one <- MCMClogit(Angaus ~ SegSumT+DSDist+USNative+as.factor(Method)+DSMaxSlope+USSlope,
# data=Anguilla_train,burnin=burn, mcmc=mcmclen, beta.start=-1,
# b0=b0mean, B0=b0precision)
# ## End(Not run)
data(MCMCsamples)
mcmclen <- 1000
bmkconverge(MCMC.one,mcmclen/10)
Run the code above in your browser using DataLab