rm(list = ls())
setwd("c:\\E-drive\\Books\\LOGLIN3\\BAYES\\")
load("beta-c-samp.Rda")
library(ggplot2)
ggplot( beta_c_frame ) +
  geom_density2d( aes(x=prior_beta_c_1, y=prior_beta_c_2),
  color="#000066", linetype=2 ) +
  geom_density2d( aes(x=posterior_beta_c_1,
  y=posterior_beta_c_2),
  color="#0000cc" ) +
  theme_bw() +
  xlab( expression( beta[0] ) ) +
  ylab( expression( beta[1] ) ) +
  ggtitle( expression( paste(
  "Approximate prior and posterior for centered ",
  beta[0], ", ", beta[1] ) ) )