## Not run: ------------------------------------
# x <- 1:20
# y <- rnorm(length(x), mean=x, sd=10)
# print(summary(fit <- lm(y ~ x)))
# bayes.estimates <- posterior(fit)
#
## ---------------------------------------------
Run the code above in your browser using DataLab