data-raw/data-raw.R

library(devtools)

falcon <- data.frame(Year = 1974:2013)

set.seed(105)
falcon$Pairs <- rpois(nrow(falcon), 20)
falcon$R.pairs <- rbinom(nrow(falcon), falcon$Pairs, 0.6)
falcon$Eyasses <- rbinom(nrow(falcon), falcon$R.pairs, 0.4)

use_data(falcon, overwrite = TRUE)
poissonconsulting/jaggernaut documentation built on Feb. 18, 2021, 11:10 p.m.