data-raw/writing.R

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

writing <- stats::ts(c(562.674, 599.000, 668.516, 597.798, 579.889,
668.233, 499.232, 215.187, 555.813, 586.935, 546.136, 571.111,
634.712, 639.283, 712.182, 621.557, 621.000, 675.989, 501.322,
220.286, 560.727, 602.530, 626.379, 605.508, 646.783, 658.442,
712.906, 687.714, 723.916, 707.183, 629.000, 237.530, 613.296,
730.444, 734.925, 651.812, 676.155, 748.183, 810.681, 729.363,
701.108, 790.079, 594.621, 230.716, 617.189, 691.389, 701.067,
705.777, 747.636, 773.392, 813.788, 766.713, 728.875, 749.197,
680.954, 241.424, 680.234, 708.326, 694.238, 772.071, 795.337,
788.421, 889.968, 797.393, 751.000, 821.255, 691.605, 290.655,
727.147, 868.355, 812.390, 799.556, 843.038, 847.000, 941.952,
804.309, 840.307, 871.528, 656.330, 370.508, 742.000, 847.152,
731.675, 898.527, 778.139, 856.075, 938.833, 813.023, 783.417,
828.110, 657.311, 310.032, 780.000, 860.000, 780.000, 807.993,
895.217, 856.075, 893.268, 875.000, 835.088, 934.595, 832.500,
300.000, 791.443, 900.000, 781.729, 880.000, 875.024, 992.968,
976.804, 968.697, 871.675, 1006.852, 832.037, 345.587, 849.528,
913.871, 868.746, 993.733),f=12,s=1968)

usethis::use_data(writing, overwrite=TRUE)