mosaicData (version 0.16.0)

GoosePermits: 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]

Examples

# NOT RUN {
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) 
}

# }