data-raw/telephone.R

In robjhyndman/fma: Data Sets from "Forecasting: Methods and Applications" by Makridakis, Wheelwright & Hyndman (1998)

telephone <- stats::ts(c(319.29, 296.83, 234.35, 192.35, 149.36, 128.95,
144.35, 154.12, 151.41, 151.11, 147.37, 134.48, 100.17, 82.26,
82.26, 84.40, 92.55, 103.18, 108.77, 105.24, 102.68, 96.04, 70.88,
72.23, 73.27, 53.96, 42.53, 38.44, 36.21, 35.59, 28.27, 20.04,
17.52, 16.26, 16.42, 16.26, 15.07, 14.75, 14.64, 14.56, 14.62,
14.40, 13.91, 13.54, 12.98, 11.89, 11.78, 11.65, 11.51, 11.36,
11.06, 9.65, 9.28, 7.78, 7.26, 5.56, 5.21, 5.05, 5.11, 4.60, 3.95,
3.57, 3.36, 1.30, 1.30, 2.60, 2.72, 2.63, 2.61, 2.57, 1.75, 1.63,
1.39, 1.34, 1.29, 1.26, 1.25, 1.26, 1.29, 1.39, 1.37,
0.90),s=1915,f=1)
usethis::use_data(telephone, overwrite=TRUE)