print.metropolis {FAmle}

Bayesian Estimation of Univariate Probability Distributions

Description

See metropolis.

Usage

## S3 method for class 'metropolis'
print(x, stats.fun = NULL,...)

Arguments

x

metropolis object corresponding to the fitted model.

stats.fun

An optional function that may be provided by the user in order to obtain a posterior summary (see Example).

...

none...

See Also

metropolis, print

Examples

data(yarns)
x <- yarns$x
fit.x <- mle(x,'gamma',c(.1,.1))
bayes.x <- metropolis(fit.x,50,trans.list=
	list(function(x) exp(x), function(x) exp(x)))
print(bayes.x)
print(bayes.x,stats.fun=function(x) c(mean=mean(x),CV=sd(x)/mean(x)))