powered by
Estimates the marginal parameter modes using kernel density estimation
posterior.mode(x, adjust=0.1, ...)
mcmc object
numeric, passed to density to adjust the bandwidth of the kernal density
density
other arguments to be passed
modes of the kernel density estimates
# NOT RUN { v<-rIW(as.matrix(1),10, n=1000) hist(v) abline(v=posterior.mode(mcmc(v)), col="red") # }
Run the code above in your browser using DataLab