R/hist.metropolis.R

In FAmle: Maximum Likelihood and Bayesian Estimation of Univariate Probability Distributions

Defines functions hist.metropolis

Documented in hist.metropolis

hist.metropolis <-
function(x,density=TRUE,...)
{
	k <- x$input$k
	layout(matrix(1:k,ncol=k))
	for(i in 1:k)
	{
		hist(x$sims[,i],main=colnames(x$sims)[i],freq=FALSE,xlab='',...)
		if(density) lines(density(x$sims[,i]),col='red')
	}
	layout(matrix(1))
}

Try the FAmle package in your browser