mosaicData (version 0.20.4)

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.

bid

amount offered for permit (US $) (numeric)

keep

number of hunters who kept the permit and returned the cash (numeric)

sell

number of hunters who kept the cash and returned the permit (numeric)

Examples

data(GoosePermits)

goose.model <-
  glm( cbind(keep, sell) ~ log(bid), data = GoosePermits, family = binomial())
if (require(ggformula)) {
  y.hat <- makeFun(goose.model)
  gf_point( (keep/(keep+sell)) ~ bid, data = GoosePermits, ylim = c(0,1.05)) |>
  gf_fun(y.hat(b) ~ b, add = TRUE, color = "red", alpha = 0.5)
}