data-raw/pollution.R

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

pollution <- stats::ts(c(122.640, 120.888, 164.688, 147.168, 171.696,
228.636, 124.392, 155.928, 217.248, 176.076, 142.788, 196.224,
228.636, 234.768, 319.740, 241.776, 151.548, 352.152, 239.148,
233.892, 471.288, 290.832, 284.700, 291.708, 287.328, 315.360,
417.852, 288.204, 225.132, 430.992, 229.512, 296.964, 355.656,
367.920, 317.112, 359.160, 249.660, 455.520, 607.068, 425.736,
494.064, 486.180, 494.064, 459.024, 543.120, 567.648, 613.200,
791.904, 305.724, 713.064, 1156.320, 829.572, 865.488, 1318.380,
971.484, 817.308, 1079.232, 1013.532, 986.376, 1264.068, 997.764,
1415.616, 1709.952, 1443.648, 1619.724, 2120.796, 923.304,
860.232, 1639.872, 1106.388, 1161.576, 1034.556, 960.972,
1214.136, 1492.704, 991.632, 1025.796, 1399.848, 818.184, 865.488,
1547.892, 1003.020, 960.972, 1568.040, 1065.216, 1107.264,
2411.628, 1510.224, 1876.392, 1792.296, 1307.868, 1705.572,
1945.596, 2219.784, 2528.136, 3534.660, 1546.140, 2246.064,
2930.220, 2462.436, 2551.788, 3140.460, 2437.032, 2109.408,
3853.523, 2840.868, 3164.112, 3946.380, 3044.976, 3957.768,
4552.571, 3651.167, 3861.408, 5048.388, 2990.664, 2677.056,
5566.103, 3661.680, 2435.280, 3550.428, 2215.404, 3312.156,
4289.771, 3218.424, 3193.020, 3542.544, 2169.852, 1536.504,
3454.944, 2351.184),f=12,s=1986)
usethis::use_data(pollution, overwrite=TRUE)