Goose Permit Study

Description

237 hunters were each offered one of 11 cash amounts (bids) ranging from $1 to $200 in return for their goose permits. Hunters returned either their permit or the cash.

Usage

data(GoosePermits)

Format

A data.frame with 11 observations on the following 3 variables.

itemcodebid amount offered for permit (US $) [numeric] itemcodekeep number of hunters who kept the permit and returned the cash [numeric] itemcodesell number of hunters who kept the cash and returned the permit [numeric]

Source

Bishop and Heberlein. "Measuring values of extramarket goods: are indirect measures biased?". Amer. J. Agr. Econ. 61, 1979. Available at http://www1.udel.edu/johnmack/frec343/bishop_and_heberlein.pdf. See also http://www.math.umt.edu/patterson/ProfileLikelihoodCI.pdf.

Examples

data(GoosePermits)

goose.model <- 
  glm( cbind(keep, sell) ~ log(bid), data = GoosePermits, family = binomial())
if (require(mosaic)) {
  f <- makeFun(goose.model)
  xyplot( (keep/(keep+sell)) ~ bid, data = GoosePermits, ylim = c(0,1.05))
  plotFun( f(b) ~ b, add = TRUE) 
}