#  Cancer mortality example.  Data are from Tsutakawa (1985) and consist of
#  the number of men aged 45 - 64 years who were at risk of stomach cancer (n)
#  and who actually died (y) in the largest twenty cities in Missouri.
#  We first work in the original scale of the parameters and then consider a 
#  transformation of model parameters.

library(LearnBayes)

data(cancermortality)
cancermortality

mycontour(betabinexch0, c(0.0001, 0.003, 1, 20000), cancermortality, xlab="eta", ylab="K")

mycontour(betabinexch, c(-8, -4.5, 3, 16.5), cancermortality, xlab="logit eta", ylab="log K")