R/acceptance.rate.r

Defines functions acceptance.rate

acceptance.rate<-function(mcmc.chain) sum(mcmc.chain[2:length(mcmc.chain)]!=mcmc.chain[1:(length(mcmc.chain)-1)])/length(mcmc.chain)
FMestre1/MetaLandSim documentation built on Feb. 4, 2023, 5:46 p.m.