R/postmode.R

In ltbayes: Simulation-Based Bayesian Inference for Latent Traits of Item Response Models

postmode <-
function(fmodel, y, zmin = -5, zmax = 5, ...) 
{
	tmp <- optimize(function(zeta, ...) fmodel(zeta, ...)$post, 
		interval = c(zmin, zmax), maximum = TRUE, y = y, ...)
	names(tmp) <- c("zeta", "post")
	return(tmp)
}