R/RTSERIEStsd.R
In wqmeeker/RTseries: Interactive Time Series Analysis Tools
hstart <-
c(81.9, 79, 122.4, 143, 133.9, 123.5, 100, 103.7, 91.9, 79.1,
75.1, 62.3, 61.7, 63.2, 92.9, 115.9, 134.2, 131.6, 126.1, 130.2,
125.8, 137, 120.2, 83.1, 82.7, 87.2, 128.6, 164.9, 144.5, 142.5,
142.3, 141, 139.5, 143.3, 129.5, 99.3, 105.8, 94.6, 135.6, 159.9,
157.7, 150.5, 126.5, 127.5, 132.9, 125.8, 97.4, 85.3, 69.2, 77.2,
117.8, 130.6, 127.3, 141.9, 143.5, 131.5, 133.8, 143.8, 128.3,
124.1, 114.8, 104.6, 169.3, 203.6, 203.5, 196.8, 197, 205.9,
175.6, 181.7, 176.4, 155.3, 150.9, 153.6, 205.8, 213.2, 227.9,
226.2, 207.5, 231, 204.4, 218.2, 187.1, 152.7, 147.3, 139.5,
201.1, 205.4, 234.2, 203.4, 203.2, 199.9, 148.9, 149.5, 134.6,
90.6, 86.2, 109.6, 127.2, 160.9, 149.9, 149.5, 127.2, 114, 99.6,
97.2, 75.1, 54.9)
airline.tsd <-
structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119,
104, 118, 115, 126, 141, 135, 125, 149, 170, 170, 158, 133, 114,
140, 145, 150, 178, 163, 172, 178, 199, 199, 184, 162, 146, 166,
171, 180, 193, 181, 183, 218, 230, 242, 209, 191, 172, 194, 196,
196, 236, 235, 229, 243, 264, 272, 237, 211, 180, 201, 204, 188,
235, 227, 234, 264, 302, 293, 259, 229, 203, 229, 242, 233, 267,
269, 270, 315, 364, 347, 312, 274, 237, 278, 284, 277, 317, 313,
318, 374, 413, 405, 355, 306, 271, 306, 315, 301, 356, 348, 355,
422, 465, 467, 404, 347, 305, 336, 340, 318, 362, 348, 363, 435,
491, 505, 404, 359, 310, 337, 360, 342, 406, 396, 420, 472, 548,
559, 463, 407, 362, 405, 417, 391, 419, 461, 472, 535, 622, 606,
508, 461, 390, 432), .Tsp = c(1949, 1960.91666666667, 12), class = c("tsd",
"ts"), time.units = "Time", data.title = "International Airline Passengers", response.units = "Thousands of Passengers")
arvar.tsd <-
structure(c(2.49418349344500, 2.19791555129669, 2.52681485973857,
1.02485433922162, -0.404126479816618, 1.43831393011116, -0.30423854058667,
-0.229416503444800, -0.259212550181349, -0.0952812296151953,
1.60972373679443, 1.10112558986626, 2.93983967993911, 2.59264507598915,
3.06975050410658, 1.22265298735801, 1.13225323861019, 1.56565338460277,
0.80983613517144, 1.06504978311578, 0.934450930576095, -0.102299228217771,
0.361195547150562, -1.39663366878357, -2.83155513878509, -2.18557676059994,
-2.22619560483834, -1.32687329867256, -1.23941987607120, -3.67643732274592,
-3.52255197391341, -4.12560302916043, -4.03884000194663, -3.4291322794397,
-3.64168973401739, -4.11547312417068, -2.42052160594135, -2.75365726783317,
-4.5571487478656, -3.77996043626306, -3.94621535274784, -3.16845573673608,
-3.092027654678, -2.50971957435040, -2.48934203089474, -0.59738219435508,
-0.658026612959802, -2.53658546906453, -2.79649222860015, -0.665111077160542,
-0.226082183472929, -0.533642231402444, -0.193214345100895, 0.709648677959561,
1.28474305546287, 1.38594220257964, 0.398969304026898, 0.697020582509697,
1.30645592955438, -0.158087545909341, 0.108084505393979, -0.692896038486985,
-0.0157670615545895, -1.2934001316259, -3.34114596046092, -2.66337195078326,
-5.11686551933407, -5.09320062155485, -3.33625244372549, -1.64362580108572,
-2.06300965164961, -1.39571421442059, 1.03151237383667, 0.868725161889899,
1.39056336986240, 1.13642449524312, -0.966703916402927, -0.689919262234447,
-1.57095624832141, -2.52012968979304, -1.0549679901313, -1.98208349334097,
-3.54352071362868, -2.00644535294633, -1.76342251048298, -2.43771253387682,
-1.72399606694445, -0.166734124514600, 0.0346822051295777, -0.296038333560646,
-0.478828486905011, -0.39255595928837, -0.968204101237065, -0.89757680988768,
-0.799334880102748, 0.775757465746722, 1.91051272124497, 3.09381390945664,
2.60565376494407, 2.13584969487157, 2.15813625360424, 3.36586824451589,
2.92892602451968, 3.2538257803735, 2.88277567436959, 2.29381884574668,
1.46505238860527, 0.388005502764524, 0.532576197904928, -1.32556543549165,
-2.13301403581130, -2.37746222625055, -2.86981426701167, -2.20973596070329,
-2.17928785201433, -2.70961265882989, -1.68457910475283, -1.71832457605549,
-1.12390151389257, -0.541391631390272, -0.63493627915028, 0.463713472961299,
-0.586548473866429, -1.80331080308850, -1.02291381729086, -1.91491001054872,
-1.09514023879795, -1.40714741013393, -1.32824100182897, 0.0562145503400386,
-0.509129088126129, -1.42730973902542, -1.89279798486220, -1.59968987333805,
-0.530695663878053, -0.697381122310357, -0.583182108102971, 0.338545121968683,
-1.09301422501507, -0.2726123362285, 0.575356377424404, 0.110420081569092,
1.67665546486025, 0.605403456214713, 1.38253464152661, 0.844802924951523,
1.21774672211905, 1.30596592799471, 0.812067665148927, 1.46466376965593,
0.329455166613626, 0.428082181237924, -0.268176848089472, -1.47114755236037,
-0.537151858660892, 0.236240345387450, -0.531252114781828, 0.0492998817633826,
0.528370474045077, 0.670387835433448, 1.32266926601757, 2.61018622948514,
2.73971255488359, 1.89858672825204, 1.95607220923782, 3.23585131196642,
2.40671723776042, 2.16265706846765, 1.68714806822020, 1.91584290762547,
2.75756185147556, 2.88294555704666, 1.83133611044213, 0.559876352609634,
2.41672701034447, 2.2283626110311, 1.51908313438872, 2.30545463080969,
1.42991458496714, 0.299605695601128, -0.729693935654587, -0.848977515641556,
-0.163434722227774, -1.01657691837278, -0.626745183836896, -0.746118361099513,
0.542804759765927, 0.00836749309142744, -0.933856326107095, -1.12682529161960,
-1.37059740526992, -1.78894343980483, -2.08665946091437, -3.00178904296598,
-3.3695659502117, -3.90770189151132, -4.3587041788778, -5.02888518457814,
-5.02790688117354, -4.19570892449754, -3.76109267048895, -3.37592490896722,
-2.84225382935817, -3.47888935301568, -3.16458397654062, -1.18211299888761,
-2.72136666007633, -2.6809799013015, -2.78877521831000, -2.96491028932648,
-2.83356165391979, -2.32686329957393, -1.90296423871065, -2.40307942489516,
-1.82659203386659, -2.25241555547485, -0.833057220430245, 0.587432432384326,
2.75260532979147, 4.77056823291287, 5.45386542579337, 4.65919962300883,
5.00746957584454, 5.6573105566808, 5.47302322217613, 3.45326886761328,
3.08285187833129, 1.96558648876218, 2.99700324918947, 1.82624784643819,
1.33368134029838, 1.75533543707072, 2.4035305041710, 1.27480504373523,
2.02901130971081, 2.97207828830072, 1.63162683318090, 1.41434061553553,
0.909910319676757, 2.73163199061887, 2.21678578139642, 1.73420803268171,
-0.769184788951325, -0.411452496081471, 0.180807481241992, -1.21677164216349,
0.0396332220330479, 0.759412262002049, 1.11044741109709, 2.16788575103677,
0.734383679027143, 2.14890640051625, 2.25835619585795, 2.8967229542516,
2.60601764404857, 2.13783996957554, 0.951825786368205, 1.08563748370318,
-0.0207720869956129, 0.30677625810294, -0.444960019212019, -1.87463584032775,
-3.58486112767206, -2.00365738188098, -2.53436908294776, -1.06216672834169,
-1.50230310715765, -2.18177212388549, -2.6517355319357, -2.58698583326739,
-2.48461236815569, -1.37946061547531, -1.29302063463395, -0.530333463671177,
-0.327939859409702), .Tsp = c(1, 275, 1), class = c("tsd", "ts"
), time.units = "Time", data.title = "Simulated data", response.units = "Data")
att.stock.tsd <-
structure(c(61, 61.625, 61, 64, 63.75, 63.375, 63.875, 61.875,
61.5, 61.625, 62.125, 61.625, 61, 61.875, 61.625, 59.625, 58.75,
58.75, 58.25, 58.5, 57.75, 57.125, 57.75, 58.875, 58, 57.875,
58, 57.125, 57.25, 57.375, 57.125, 57.5, 58.375, 58.125, 56.625,
56.25, 56.25, 55.125, 55, 55.125, 53, 52.375, 52.875, 53.5, 53.375,
53.375, 53.5, 53.75, 54, 53.125, 51.875, 52.25), .Tsp = c(1,
52, 1), class = c("tsd", "ts"), time.units = "Week", data.title = "1979 Weekly Closing Price of ATT Common Stock", response.units = "Dollars")
boston.robberies.tsd <-
structure(c(41, 39, 50, 40, 43, 38, 44, 35, 39, 35, 29, 49, 50,
59, 63, 32, 39, 47, 53, 60, 57, 52, 70, 90, 74, 62, 55, 84, 94,
70, 108, 139, 120, 97, 126, 149, 158, 124, 140, 109, 114, 77,
120, 133, 110, 92, 97, 78, 99, 107, 112, 90, 98, 125, 155, 190,
236, 189, 174, 178, 136, 161, 171, 149, 184, 155, 276, 224, 213,
279, 268, 287, 238, 213, 257, 293, 212, 246, 353, 339, 308, 247,
257, 322, 298, 273, 312, 249, 286, 279, 309, 401, 309, 328, 353,
354, 327, 324, 285, 243, 241, 287, 355, 460, 364, 487, 452, 391,
500, 451, 375, 372, 302, 316, 398, 394, 431, 431), .Tsp = c(1966,
1975.75, 12), class = c("tsd", "ts"), time.units = "Time", data.title = "Number of Armed Robberies in Boston", response.units = "Number")
change.inventory.tsd <-
structure(c(4.4, 5.8, 6.7, 7.1, 5.7, 4.1, 4.6, 4.3, 2, 2.2, 3.6,
-2.2, -5.1, -4.9, 0.1, 4.1, 3.8, 9.9, 0, 6.5, 10.8, 4.1, 2.7,
-2.9, -2.9, 1.5, 5.7, 5, 7.9, 6.8, 7.1, 4.1, 5.5, 5.1, 8, 5.6,
4.5, 6.1, 6.7, 6.1, 10.6, 8.6, 11.6, 7.6, 10.9, 14.6, 14.5, 17.4,
11.7, 5.8, 11.5, 11.7, 5, 10, 8.9, 7.1, 8.3, 10.2, 13.3, 6.2), .Tsp = c(1955,
1969.75, 4), class = c("tsd", "ts"), time.units = "Year", data.title = "Change in Inventories", response.units = "Billions of Dollars")
female.unemployment.d <-
structure(c(375, 384, 383, 326, 344, 375, 419, 424, 429, 399,
376, 288, 360, 376, 360, 381, 354, 301, 333, 339, 316, 352, 378,
360, 388, 398, 377, 383, 449, 415, 429, 369, 414, 462, 447, 403,
409, 390, 380, 438, 431, 426, 348, 394, 396, 451, 384, 491, 466,
454, 442, 475, 401, 406, 385, 380, 422, 397, 430, 433, 421, 374,
401, 451, 465, 456, 469, 466, 412, 427, 414, 384, 328, 395, 381,
360, 383, 383, 403, 425, 422, 414, 382, 390, 320, 412, 437, 421,
450, 442, 450, 412, 422, 372, 375, 392, 356, 392, 426, 442, 426,
406, 392, 426, 445, 464, 379, 409, 497, 459, 513, 549, 447, 445,
432, 514, 565, 557, 601, 582, 587, 560, 590, 556, 582, 527, 585,
556, 574, 556, 582, 583, 644, 620, 618, 623, 546, 568, 595, 605,
598, 592, 558, 595, 549, 637, 568, 605, 594, 567, 545, 545, 592,
576, 593, 603, 631, 614, 617, 546, 632, 673, 732, 593, 693, 730,
731, 733, 802, 755, 805, 751, 855, 769, 800, 825, 799, 802, 765,
827, 760, 781, 769, 766, 752, 751, 761, 873, 750, 758, 772, 791,
813, 781, 797, 802, 782, 838, 756, 764, 796, 781, 780, 679, 748,
759, 749, 756, 802, 754, 792, 772, 769, 731, 746, 741, 712, 723,
698, 746, 754, 735, 722, 737, 728, 773, 723, 741, 738, 765, 748,
707, 808, 746, 773, 751, 721, 731, 735, 701, 762, 783, 796, 803,
806, 765, 781, 768, 812, 854, 858, 818, 856, 897, 817, 872, 895,
825, 922, 915, 902, 908, 911, 919, 861, 827, 855, 867, 836, 916,
828, 835, 792, 771, 757, 756, 712, 733, 746, 728, 707, 666, 636,
676, 696, 654, 613, 677, 705, 680, 699, 650, 687, 638, 670, 555,
631, 676, 659, 689), .Tsp = c(1961, 1985.91666666667, 12), class = c("tsd",
"ts"), time.units = "Year", data.title = "US Unemployed Females Ages 16-19", response.units = "Thousands")
gas.oil.tsd <-
structure(c(16.6, 16.9, 17.1, 17.5, 18.1, 18.3, 19, 19.1, 19.8,
20.8, 20.9, 21.4, 21.8, 22.3, 22.5, 23.1, 23.5, 23.4, 24, 24.6,
24.8, 24.7, 25.5, 26.6, 27.6, 27.9, 28.4, 30.6, 32.4, 36.9, 38.2,
38.9, 38.6, 39.3, 41.3, 42.4, 42.8, 43, 44.1, 45.9, 47.2, 48.6,
48.3, 48.5, 49.3, 49.9, 51.5, 54.3, 57.7, 62.2, 70.5, 75.9, 80.7,
84.4, 85.1, 88.9, 94.1, 95.1, 94.6, 94.7, 93.4, 88.6, 89.9, 89.6
), .Tsp = c(1967, 1982.75, 4), class = c("tsd", "ts"), time.units = "Year", data.title = "US Consumption of Gas and Oil 1967-1982", response.units = "Billions of Dollars")
gasrx.tsd <-
structure(c(-0.109, 0, 0.178, 0.339, 0.373, 0.441, 0.461, 0.348,
0.127, -0.18, -0.588, -1.055, -1.421, -1.52, -1.302, -0.814,
-0.475, -0.193, 0.088, 0.435, 0.771, 0.866, 0.875, 0.891, 0.987,
1.263, 1.775, 1.976, 1.934, 1.866, 1.832, 1.767, 1.608, 1.265,
0.79, 0.36, 0.115, 0.088, 0.331, 0.645, 0.96, 1.409, 2.67, 2.834,
2.812, 2.483, 1.929, 1.485, 1.214, 1.239, 1.608, 1.905, 2.023,
1.815, 0.535, 0.122, 0.009, 0.164, 0.671, 1.019, 1.146, 1.155,
1.112, 1.121, 1.223, 1.257, 1.157, 0.913, 0.62, 0.255, -0.28,
-1.08, -1.551, -1.799, -1.825, -1.456, -0.944, -0.57, -0.431,
-0.577, -0.96, -1.616, -1.875, -1.891, -1.746, -1.474, -1.201,
-0.927, -0.524, 0.04, 0.788, 0.943, 0.93, 1.006, 1.137, 1.198,
1.054, 0.595, -0.08, -0.314, -0.288, -0.153, -0.109, -0.187,
-0.255, -0.229, -0.007, 0.254, 0.33, 0.102, -0.423, -1.139, -2.275,
-2.594, -2.716, -2.51, -1.79, -1.346, -1.081, -0.91, -0.876,
-0.885, -0.8, -0.544, -0.416, -0.271, 0, 0.403, 0.841, 1.285,
1.607, 1.746, 1.683, 1.485, 0.993, 0.648, 0.577, 0.577, 0.632,
0.747, 0.9, 0.993, 0.968, 0.79, 0.399, -0.161, -0.553, -0.603,
-0.424, -0.194, -0.049, 0.06, 0.161, 0.301, 0.517, 0.566, 0.56,
0.573, 0.592, 0.671, 0.933, 1.337, 1.46, 1.353, 0.772, 0.218,
-0.237, -0.714, -1.099, -1.269, -1.175, -0.676, 0.033, 0.556,
0.643, 0.484, 0.109, -0.31, -0.697, -1.047, -1.218, -1.183, -0.873,
-0.336, 0.063, 0.084, 0, 0.001, 0.209, 0.556, 0.782, 0.858, 0.918,
0.862, 0.416, -0.336, -0.959, -1.813, -2.378, -2.499, -2.473,
-2.33, -2.053, -1.739, -1.261, -0.569, -0.137, -0.024, -0.05,
-0.135, -0.276, -0.534, -0.871, -1.243, -1.439, -1.422, -1.175,
-0.813, -0.634, -0.582, -0.625, -0.713, -0.848, -1.039, -1.346,
-1.628, -1.619, -1.149, -0.488, -0.16, -0.007, -0.092, -0.62,
-1.086, -1.525, -1.858, -2.029, -2.024, -1.961, -1.952, -1.794,
-1.302, -1.303, -0.918, -0.798, -0.867, -1.047, -1.123, -0.876,
-0.395, 0.185, 0.662, 0.709, 0.605, 0.501, 0.603, 0.943, 1.223,
1.249, 0.824, 0.102, 0.025, 0.382, 0.922, 1.032, 0.866, 0.527,
0.093, -0.458, -0.748, -0.947, -1.029, -0.928, -0.645, -0.424,
-0.276, -0.158, -0.033, 0.102, 0.251, 0.28, 0, -0.493, -0.759,
-0.824, -0.74, -0.528, -0.204, 0.034, 0.204, 0.253, 0.195, 0.131,
0.017, -0.182, -0.262), .Tsp = c(1, 296, 1), class = c("tsd",
"ts"), time.units = "Time", data.title = "Coded Gas Rate (input)", response.units = "Std. Cu ft/sec")
gasry.tsd <-
structure(c(53.8, 53.6, 53.5, 53.5, 53.4, 53.1, 52.7, 52.4, 52.2,
52, 52, 52.4, 53, 54, 54.9, 56, 56.8, 56.8, 56.4, 55.7, 55, 54.3,
53.2, 52.3, 51.6, 51.2, 50.8, 50.5, 50, 49.2, 48.4, 47.9, 47.6,
47.5, 47.5, 47.6, 48.1, 49, 50, 51.1, 51.8, 51.9, 51.7, 51.2,
50, 48.3, 47, 45.8, 45.6, 46, 46.9, 47.8, 48.2, 48.3, 47.9, 47.2,
47.2, 48.1, 49.4, 50.6, 51.5, 51.6, 51.2, 50.5, 50.1, 49.8, 49.6,
49.4, 49.3, 49.2, 49.3, 49.7, 50.3, 51.3, 52.8, 54.4, 56, 56.9,
57.5, 57.3, 56.6, 56, 55.4, 55.4, 56.4, 57.2, 58, 58.4, 58.4,
58.1, 57.7, 57, 56, 54.7, 53.2, 52.1, 51.6, 51, 50.5, 50.4, 51,
51.8, 52.4, 53, 53.4, 53.6, 53.7, 53.8, 53.8, 53.8, 53.3, 53,
52.9, 53.4, 54.6, 56.4, 58, 59.4, 60.2, 60, 59.4, 58.4, 57.6,
56.9, 56.4, 56, 55.7, 55.3, 55, 54.4, 53.7, 52.8, 51.6, 50.6,
49.4, 48.8, 48.5, 48.7, 49.2, 49.8, 50.4, 50.7, 50.9, 50.7, 50.5,
50.4, 50.2, 50.4, 51.2, 52.3, 53.2, 53.9, 54.1, 54, 53.6, 53.2,
53, 52.8, 52.3, 51.9, 51.6, 51.6, 51.4, 51.2, 50.7, 50, 49.4,
49.3, 49.7, 50.6, 51.8, 53, 54, 55.3, 55.9, 55.9, 54.6, 53.5,
52.4, 52.1, 52.3, 53, 53.8, 54.6, 55.4, 55.9, 55.9, 55.2, 54.4,
53.7, 53.6, 53.6, 53.2, 52.5, 52, 51.4, 51, 50.9, 52.4, 53.5,
55.6, 58, 59.5, 60, 60.4, 60.5, 60.2, 59.7, 59, 57.6, 56.4, 55.2,
54.5, 54.1, 54.1, 54.4, 55.5, 56.2, 57, 57.3, 57.4, 57, 56.4,
55.9, 55.5, 55.3, 55.2, 55.4, 56, 56.5, 57.1, 57.3, 56.8, 55.6,
55, 54.1, 54.3, 55.3, 56.4, 57.2, 57.8, 58.3, 58.6, 58.8, 58.8,
58.6, 58, 57.4, 57, 56.4, 56.3, 56.4, 56.4, 56, 55.2, 54, 53,
52, 51.6, 51.6, 51.1, 50.4, 50, 50, 52, 54, 55.1, 54.5, 52.8,
51.4, 50.8, 51.2, 52, 52.8, 53.8, 54.5, 54.9, 54.9, 54.8, 54.4,
53.7, 53.3, 52.8, 52.6, 52.6, 53, 54.3, 56, 57, 58, 58.6, 58.5,
58.3, 57.8, 57.3, 57), .Tsp = c(1, 296, 1), class = c("tsd",
"ts"), time.units = "Time", data.title = "CO2 (output)", response.units = "Percent CO2")
machine.tool.ship.tsd <-
structure(c(10285, 11490, 13975, 10590, 12130, 12760, 10005,
8895, 11555, 10775, 10355, 13015, 8645, 9770, 10530, 10110, 9845,
12220, 8385, 7405, 10840, 10460, 9220, 11815, 9385, 8735, 9820,
8305, 9710, 10060, 7490, 6215, 8335, 7095, 5580, 8560, 5765,
5940, 6485, 7175, 5255, 6075, 4530, 4090, 5890, 4790, 4170, 7065,
3960, 4640, 5675, 4955, 5715, 7005, 4780, 4845, 7625, 6385, 6620,
9240, 6615, 7440, 9880, 7630, 10060, 10290, 7265, 7690, 9575,
9845, 8635, 12450, 8410, 9585, 12930, 12300, 11990, 12575, 10500,
8935, 15135, 12905, 12890, 16430), .Tsp = c(1968, 1974.91666666667,
12), class = c("tsd", "ts"), time.units = "Year", data.title = "Machine-Tool Shipments 1968-1975", response.units = "Thousands of Dollars")
male.unemployment.tsd <-
structure(c(707, 655, 638, 574, 552, 980, 926, 680, 597, 637,
660, 704, 758, 835, 747, 617, 554, 929, 815, 702, 640, 588, 669,
675, 610, 651, 605, 592, 527, 898, 839, 614, 594, 576, 672, 651,
714, 715, 672, 588, 567, 1057, 949, 683, 771, 708, 824, 835,
980, 969, 931, 892, 828, 1350, 1218, 977, 863, 838, 866, 877,
1007, 951, 906, 911, 812, 1172, 1101, 900, 841, 853, 922, 886,
896, 936, 902, 765, 735, 1234, 1052, 868, 798, 751, 820, 725,
821, 895, 851, 734, 636, 994, 990, 750, 727, 754, 792, 817, 856,
886, 833, 733, 675, 1004, 956, 777, 761, 709, 777, 771, 840,
847, 774, 720, 848, 1240, 1168, 936, 853, 910, 953, 874, 1026,
1030, 946, 860, 856, 1190, 1038, 883, 843, 857, 1016, 1003), .Tsp = c(1971,
1981.91666666667, 12), class = c("tsd", "ts"), time.units = "Year", data.title = "US Unemployed Males Ages 16-19", response.units = "Thousands")
oad.tsd <-
structure(c(6.6011, 6.55576, 6.5181, 6.42498, 6.43868, 6.48173,
6.71284, 6.64639, 6.511, 6.51021, 6.58769, 6.61386, 6.70224,
6.65245, 6.58104, 6.50932, 6.51981, 6.64591, 6.77194, 6.71382,
6.60164, 6.58158, 6.61455, 6.70228, 6.77956, 6.75018, 6.66494,
6.56197, 6.57278, 6.85069, 6.76831, 6.75746, 6.71462, 6.64869,
6.70601, 6.75843, 6.85132, 6.85432, 6.75464, 6.69287, 6.71209,
6.79801, 6.90086, 6.95501, 6.78619, 6.77511, 6.84878, 6.96915,
6.94209, 6.90815, 6.79581, 6.77106, 6.7663, 6.92218, 7.02025,
7.02929, 6.81991, 6.80915, 6.88408, 6.9129, 6.97866, 6.94202,
6.87909, 6.79965, 6.81259, 6.89272, 7.16972, 6.93213, 6.82103,
6.85578, 6.95368, 6.9952, 7.0458, 7.0625, 6.99577, 6.89578, 6.86417,
6.99927, 7.16027, 7.11666, 6.89878, 6.93408, 6.97616, 7.07897,
7.14766, 7.05902, 7.00532, 6.89115, 6.89297, 7.01257, 7.19739,
7.09346, 6.9631, 7.02267, 7.09898, 7.19206, 7.29256, 7.13518,
7.00859, 6.95518, 7.01947, 7.13228, 7.29528, 7.09632, 7.02693,
7.0162, 7.11002, 7.23462, 7.32306, 7.30641, 7.17916, 7.02096,
7.04144, 7.17437, 7.26813, 7.244, 7.18675, 7.12274, 7.17493,
7.27526), .Tsp = c(1970, 1979.91666666667, 12), class = c("tsd",
"ts"), time.units = "Time", data.title = "Monthly Peak Load for Iowa Electricity", response.units = "Millions of Kilowatt-hours")
ohio.tsd <-
structure(c(22.671, 20.7, 23.32, 21.826, 22.299, 22.385, 21.597,
23.114, 22.703, 24.362, 25.57, 27.476, 26.968, 24.159, 28.517,
27.183, 28.332, 27.576, 29.189, 31.382, 30.654, 33.765, 34.27,
36.67, 37.35, 34.212, 36.43, 34.368, 34.826, 34.26, 31.859, 34.983,
33.657, 37.134, 37.103, 37.64, 38.297, 33.753, 36.862, 35.004,
35.35, 33.645, 34.674, 36.561, 34.942, 37.34, 36.211, 37.014,
37.739, 33.463, 36.484, 33.967, 35.496, 34.2, 35.153, 36.128,
35.835, 38.589, 37.623, 42.916, 41.933, 37.932, 41.393, 38.244,
38.913, 40.321, 39.037, 39.664, 38.677, 38.931, 40.208, 44.824,
44.802, 42.863, 44.665, 39.942, 40.22, 39.572, 39.372, 41.841,
39.876, 40.19, 39.284, 42.217, 40.923, 36.123, 40.051, 38.816,
39.272, 37.94, 39.714, 41.118, 42.524, 42.294, 40.56, 45.462,
46.508, 40.78, 44.056, 41.815, 42.579, 41.715, 40.051, 43.383,
41.257, 43.238, 43.915, 45.18, 47.387, 42.852, 45.564, 44.707,
44.977, 43.758, 44.556, 45.168, 43.339, 46.107, 46.241, 49.788,
48.37, 44.083, 46.817, 44.255, 45.8, 46.213, 46.053, 45.031,
44.516, 45.809, 46.169, 48.166, 50.083, 45.075, 49.728, 45.782,
46.05, 46.201, 45.862, 48.01, 47.355, 48.428, 48.362, 51.139,
50.166, 46.896, 51.932, 48.246, 48.182, 49.759, 50.317, 51.563,
48.997, 52.122, 53.584, 55.669, 56.057, 52.292, 54.574, 51.629,
53.643, 54.104, 53.912, 56.603, 53.949, 56.922, 57.059, 57.992,
61.747, 58.705, 58.61, 54.083, 56.75, 60.387, 61.145, 63.937,
56.292, 63.407, 62.217, 64.865, 65.039, 61.374, 63.489, 62.134,
63.242, 64.663, 71.761, 69.905, 63.86, 64.3, 63.214, 70.95, 68.963,
61.649, 67.677, 61.205, 62.405, 65.166, 69.819, 71.577, 65.105,
65.248), .Tsp = c(1954, 1970.75, 12), class = c("tsd", "ts"), time.units = "Year", data.title = "Ohio Electric Power Consumption", response.units = "Billions of Kilowatt-hours")
ozone.tsd <-
structure(c(2.7, 2, 3.6, 5, 6.5, 6.1, 5.9, 5, 6.4, 7.4, 8.2,
3.9, 4.1, 4.5, 5.5, 3.8, 4.8, 5.6, 6.3, 5.9, 8.7, 5.3, 5.7, 5.7,
3, 3.4, 4.9, 4.5, 4, 5.7, 6.3, 7.1, 8, 5.2, 5, 4.7, 3.7, 3.1,
2.5, 4, 4.1, 4.6, 4.4, 4.2, 5.1, 4.6, 4.4, 4, 2.9, 2.4, 4.7,
5.1, 4, 7.5, 7.7, 6.3, 5.3, 5.7, 4.8, 2.7, 1.7, 2, 3.4, 4, 4.3,
5, 5.5, 5, 5.4, 3.8, 2.4, 2, 2.2, 2.5, 2.6, 3.3, 2.9, 4.3, 4.2,
4.2, 3.9, 3.9, 2.5, 2.2, 2.4, 1.9, 2.1, 4.5, 3.3, 3.4, 4.1, 5.7,
4.8, 5, 2.8, 2.9, 1.7, 3.2, 2.7, 3, 3.4, 3.8, 5, 4.8, 4.9, 3.5,
2.5, 2.4, 1.6, 2.3, 2.5, 3.1, 3.5, 4.5, 5.7, 5, 4.6, 4.8, 2.1,
1.4, 2.1, 2.9, 2.7, 4.2, 3.9, 4.1, 4.6, 5.8, 4.4, 6.1, 3.5, 1.9,
1.8, 1.9, 3.7, 4.4, 3.8, 5.6, 5.7, 5.1, 5.6, 4.8, 2.5, 1.5, 1.8,
2.5, 2.6, 1.8, 3.7, 3.7, 4.9, 5.1, 3.7, 5.4, 3, 1.8, 2.1, 2.6,
2.8, 3.2, 3.5, 3.5, 4.9, 4.2, 4.7, 3.7, 3.2, 1.8, 2, 1.7, 2.8,
3.2, 4.4, 3.4, 3.9, 5.5, 3.8, 3.2, 2.3, 2.2, 1.3, 2.3, 2.7, 3.3,
3.7, 3, 3.8, 4.7, 4.6, 2.9, 1.7, 1.3, 1.8, 2, 2.2, 3, 2.4, 3.5,
3.5, 3.3, 2.7, 2.5, 1.6, 1.2, 1.5, 2, 3.1, 3, 3.5, 3.4, 4, 3.8,
3.1, 2.1, 1.6, 1.3), .Tsp = c(1955, 1972.91666666667, 12), class = c("tsd",
"ts"), time.units = "Year", data.title = "Monthly Average of Hourly Readings of Ozone in Downtown Los Angeles", response.units = "pphm")
Passengers.tsd <-
structure(c(112L, 118L, 132L, 129L, 121L, 135L, 148L, 148L, 136L,
119L, 104L, 118L, 115L, 126L, 141L, 135L, 125L, 149L, 170L, 170L,
158L, 133L, 114L, 140L, 145L, 150L, 178L, 163L, 172L, 178L, 199L,
199L, 184L, 162L, 146L, 166L, 171L, 180L, 193L, 181L, 183L, 218L,
230L, 242L, 209L, 191L, 172L, 194L, 196L, 196L, 236L, 235L, 229L,
243L, 264L, 272L, 237L, 211L, 180L, 201L, 204L, 188L, 235L, 227L,
234L, 264L, 302L, 293L, 259L, 229L, 203L, 229L, 242L, 233L, 267L,
269L, 270L, 315L, 364L, 347L, 312L, 274L, 237L, 278L, 284L, 277L,
317L, 313L, 318L, 374L, 413L, 405L, 355L, 306L, 271L, 306L, 315L,
301L, 356L, 348L, 355L, 422L, 465L, 467L, 404L, 347L, 305L, 336L,
340L, 318L, 362L, 348L, 363L, 435L, 491L, 505L, 404L, 359L, 310L,
337L, 360L, 342L, 406L, 396L, 420L, 472L, 548L, 559L, 463L, 407L,
362L, 405L, 417L, 391L, 419L, 461L, 472L, 535L, 622L, 606L, 508L,
461L, 390L, 432L), .Tsp = c(1949, 1960.91666666667, 12), class = c("tsd",
"ts"), time.units = "Year", data.title = "International Airline Passengers", response.units = "Thousands of Passengers")
savings.rate.tsd <-
structure(c(4.9, 5.2, 5.7, 5.7, 6.2, 6.7, 6.9, 7.1, 6.6, 7, 6.9,
6.4, 6.6, 6.4, 7, 7.3, 6, 6.3, 4.8, 5.3, 5.4, 4.7, 4.9, 4.4,
5.1, 5.3, 6, 5.9, 5.9, 5.6, 5.3, 4.5, 4.7, 4.6, 4.3, 5, 5.2,
6.2, 5.8, 6.7, 5.7, 6.1, 7.2, 6.5, 6.1, 6.3, 6.4, 7, 7.6, 7.2,
7.5, 7, 7.6, 7.2, 7.5, 7.8, 7.2, 7.5, 5.6, 5.7, 4.9, 5.1, 6.2,
6, 6.1, 7.5, 7.8, 8, 8, 8.1, 7.6, 7.1, 6.6, 5.6, 5.9, 6.6, 6.8,
7.8, 7.9, 8.7, 7.7, 7.3, 6.7, 7.5, 6.4, 9.7, 7.5, 7.1, 6.4, 6,
5.7, 5, 4.2, 5.1, 5.4, 5.1, 5.3, 5, 4.8, 4.7, 5, 5.4, 4.3, 3.5
), .Tsp = c(1955, 1980.75, 4), class = c("tsd", "ts"), time.units = "Year", data.title = "US Savings Rate for 1955-1980", response.units = "Percent of Disposable Income")
simnsa.tsd <-
structure(c(50.7, 44.092, 54.004, 57.7296, 49.5032, 60.1744,
49.736, 45.62, 71.7936, 54.0888, 48.1592, 62.232, 57.5096, 70.3368,
65.3608, 46.784, 57.8912, 61.2024, 64.5216, 69.0184, 59.7592,
63.412, 68.8832, 63.8432, 66.3768, 85.5552, 43.2032, 79.2968,
66.6368, 77.1784, 68.428, 73.0128, 70.5848, 65.6632, 76.7136,
83.5776, 63.4512, 94.3424, 68.7528, 85.6616, 76.6392, 62.6384,
85.812, 85.4304, 77.1752, 86.4304, 87.8216, 86.0632, 74.2888,
99.0984, 80.0352, 75.4208, 92.3312, 83.1536, 106.1416, 71.5248,
89.3424, 82.6776, 103.372, 91.1288, 91.5968, 98.5616, 107.5088,
80.1768, 105.8144, 84.9592, 88.8, 117.5776, 97.308, 103.0216,
85.5944, 95.8176, 103.7344, 115.7344, 103.448, 90.9328, 100.3872,
110.244, 101.708, 93.5576, 120.1616, 127.8472, 105.008, 103.1976,
101.1176, 118.6816, 97.3432, 122.5496, 109.8656, 118.372, 102.2304,
111.1408, 134.772, 100.3328, 112.9824, 117.4968, 125.404, 120.8296,
109.776, 133.0096, 117.5936, 120.6416, 124.4664, 107.34, 140.492,
115.4296, 116.1792, 126.9176, 124.392, 132.6896, 135.548, 118.3992,
133.792, 130.0184, 117.0824, 127.1584, 138.6216, 144.3224, 129.2696,
141.4152, 129.4704, 135.8208, 146.7728, 124.0832, 145.552, 122.2392,
128.7864, 153.1584, 145.8, 140.184, 138.1696, 137.104, 158.516,
127.3536, 156.808, 143.0888, 153.828, 130.6528, 154.4384, 158.9936,
133.7904, 142.3168, 154.08, 148.172, 140.4768, 167.5376, 144.94,
168.4728, 152.9352, 139.4992, 164.3752, 155.1336, 163.3088, 148.0112,
162.2472, 153.2672, 184.5624, 151.836, 161.0088, 150.684, 163.8832,
149.044, 183.0856, 156.5376, 165.5448, 169.9264, 173.1112, 161.0856,
169.6472, 160.28, 177.5456, 156.5896, 178.94, 176.1152, 169.3512,
164.6888, 184.068, 176.5664, 169.8216, 179.6528, 181.3856, 168.344,
191.0944, 170.0144, 174.9592, 183.8384, 189.8776, 182.1984, 169.6808,
186.5944, 181.4176, 185.0136, 177.1888), .Tsp = c(1985, 2001,
12), class = c("tsd", "ts"), time.units = "Months", data.title = "Simulated Time Series A", response.units = "Sales")
simnsb.tsd <-
structure(c(50.7, 76.0432, 71.9192, 63.2144, 52.088, 59.3992,
59.3992, 51.5712, 56.7528, 67.3248, 75.7672, 75.6616, 78.5208,
67.6472, 78.1784, 79.0016, 68.4512, 71.092, 74.5408, 63.3224,
74.908, 78.8224, 81.6776, 88.8248, 91.8, 82.272, 85.1704, 76.0296,
78.3408, 73.912, 65.5856, 62.6944, 59.1192, 62.32, 52.7896, 55.4104,
55.1152, 70.6464, 76.4952, 70.624, 82.672, 71.636, 80.528, 93.1872,
98.1184, 87.0192, 89.2512, 82.4648, 75.568, 77.4232, 86.9784,
73.7736, 79.2928, 75.1248, 72.0928, 61.7952, 64.9568, 75.2248,
73.6568, 80.36, 75.4184, 77.6552, 87.3264, 77.5576, 66.0824,
73.2712, 86.132, 93.9864, 98.2344, 107.5128, 104.9608, 111.008,
114.888, 123.46, 123.4576, 115.504, 106.2992, 111.076, 111.8056,
103.3664, 105.284, 110.7552, 122.0984, 126.3032, 143.684, 147.9648,
146.2488, 156.8512, 172.1264, 149.0208, 139.9752, 143.1608, 152.0752,
140.5304, 132.2744, 128.9984, 129.8248, 135.6944, 125.4048, 126.7272,
131.8416, 122.8728, 124.0272, 128.9944, 135.8576, 134.1312, 120.3232,
134.5904, 135.4424, 138.5792, 152.6648, 164.1888, 154.9552, 152.576,
146.3136, 149.0056, 135.7696, 139.6464, 146.3352, 152.0728, 154.4848,
153.7768, 157.7368, 160.3656, 169.4456, 170.6152, 177.1016, 170.856,
166.496, 161.9304, 159.3296, 142.9192, 161.7584, 170.2592, 176.5496,
173.2952, 175.8568, 172.412, 176.4488, 178.5064, 180.2048, 180.4512,
174.2064, 173.1912, 169.428, 174.4896, 156.6488, 163.0528, 163.6648,
152.8768, 177.9256), .Tsp = c(1989, 2001.5, 12), class = c("tsd",
"ts"), time.units = "Months", data.title = "Simulated Time Series B", response.units = "Sales")
simnsc.tsd <-
structure(c(60, 52.692, 54.596, 59.5256, 55.5288, 61.5032, 56.3392,
46.3592, 61.8528, 58.9416, 49.4008, 53.2328, 51.6424, 62.1792,
67.04, 52.624, 48.6152, 47.2176, 48.4392, 53.4576, 48.5168, 46.5288,
49.312, 46.3552, 45.232, 62.5872, 36.8904, 46.5872, 42.924, 49.1024,
45.8304, 46.4432, 43.928, 35.7912, 38.0048, 46.3824, 33.9336,
51.6759, 43.1287, 50.7903, 48.7295, 31.968, 37.68, 42.3104, 37.9856,
42.216, 47.1375, 49.6007, 39.5895, 53.6879, 48.0231, 37.044,
42.2752, 37.6288, 55.2703, 37.5952, 37.0376, 29.1152, 41.1872,
40.316, 39.2128, 44.3744, 57.7831, 43.1599, 53.4743, 42.2335,
34.1335, 54.1111, 53.1191, 57.1407, 43.0351, 38.4527, 41.0871,
55.0215, 55.9695, 43.7023, 40.1895, 45.8335, 42.2415, 29.7991,
43.2607, 63.7079, 60.6159, 55.0135, 46.6311, 55.1127, 41.5559,
52.5055, 50.0711, 55.4431, 43.9735, 40.7143, 60.3863, 44.9191,
41.4015, 41.6983, 49.2023, 51.4319, 41.9079, 54.9175, 51.8111,
51.0527, 53.4191, 37.9591, 54.9511, 46.1807, 37.4599, 38.7775,
36.8695, 42.5591, 50.4071, 40.4063, 45.0983, 45.3167, 31.8991,
27.8575, 34.5791, 46.3015, 42.2711, 49.6863, 44.4567, 44.8775,
55.5503, 42.8335, 50.8855, 34.9247, 24.8111, 38.3695, 43.8695,
43.0535, 39.5231, 34.2271, 49.6431, 33.1967, 45.5047, 43.3935,
51.3215, 35.3743, 42.5127, 53.5063, 38.5967, 31.5135, 35.4935,
32.8655, 21.8423, 37.1799, 29.2199, 44.0927, 42.7279, 27.2271,
35.9023, 34.6359, 40.8447, 31.0559, 34.8031, 28.8703, 53.5327,
44.7687, 44.4775, 33.1615, 34.3447, 19.9887, 38.9743, 30.7119,
30.7567, 34.4831, 40.6943, 34.1799, 35.5271, 26.8071, 34.6527,
20.8424, 28.6824, 32.9976, 29.8488, 21.3376, 31.5056, 33.472,
27.9936, 31.6464, 36.332, 27.276, 40.2704, 31.4848, 26.944, 30.5824,
39.56, 40.1584, 27.5392, 31.1336, 28.8512, 29.4648, 21.5536), .Tsp = c(1991,
2007, 12), class = c("tsd", "ts"), time.units = "Months", data.title = "Simulated Time Series C", response.units = "Sales")
simnsd.tsd <-
structure(c(-0.146131649560547, -0.40805135172706, -0.212598217377834,
0.691567442593005, 0.037213563836051, -0.30567945610907, 0.472809915628741,
1.24777679572378, 1.61433889460656, 2.2076914078731, 1.54861812792555,
1.10807552571758, -0.25258832725345, -2.16664947082161, -3.87734878841269,
-4.88520973980768, -4.5958983235059, -2.58652863915728, -1.72909455370898,
-0.55128413661559, 0.45835807121279, 0.885738893223263, 0.48828011893061,
-2.17665094509437, -3.36001400451351, -4.71852038090286, -6.60993900909839,
-8.68634515718367, -9.20455936110097, -10.5093729752705, -10.1084346489623,
-9.78637733015576, -8.78135893998961, -8.6331202506167, -8.71626643338032,
-7.5540798955407, -6.08813193326512, -3.99634391230774, -3.11082684508189,
-2.24527031610019, -0.773498775861129, -0.467012046620587, 1.09969149602301,
1.01754629078033, 0.178903828155655, -0.0512626054951085, 0.652312648360227,
0.351145359137426, -0.920364322356393, -0.681816707781457, -0.356750145272943,
0.137614136312686, 2.76043514787456, 4.10535520847372, 3.47108219058772,
1.92524660177219, 1.71874859897304, 1.07529888317261, 0.607658864690287,
0.282000076769849, -0.787059035513717, -2.36623887567281, -0.514338387088032,
-0.523084693654151, -0.405812581769162, 0.123537690272854, 0.223154633614543,
-1.40077455032937, -1.53548391644516, 0.704624903687477, 3.28473379538973,
6.89280606570548, 9.59513800261219, 9.78464119059542, 11.1949495715917,
12.9122620194591, 14.0693673104574, 16.1410887039454, 16.6729480655876,
17.8305853315995, 18.6569729587475, 19.0529249080709, 20.4517683900861,
20.7977321865294, 21.8751716131423, 19.8795618023334, 18.96501767073,
20.12421517226, 19.7958634311412, 19.6667731280484, 18.7668140099497,
17.2811173522602, 15.647033899292, 13.34335416246, 13.0773511830117,
12.0573284114852, 10.669759974088, 10.9451555032819, 11.8957081365161,
11.2918779160853, 10.1714948788014, 11.4746449382348, 12.8083751939161,
14.1220177389164, 14.8683321992935, 13.9554914022743, 14.6829200671249,
16.1071931192348, 17.6778002879718, 18.9313241316071, 19.2401780408099,
18.2468749753551, 17.6299199690603, 16.5305709177278, 15.8242695271735,
16.2776926633683, 15.7196567845815, 17.4187371674885, 17.8340912871668,
18.4352713140166, 19.3826613218554, 19.9317349234002, 18.631050331872,
19.9757788933811, 20.7621788976566, 20.3745894020051, 18.5667625353196,
17.3064041827791, 17.0319920219497, 17.5364476610585, 16.5516557227803,
17.6866972786297, 17.8099096449452, 18.0288934166512, 17.3823280544906,
16.8152939723123, 15.5234414019537, 12.5616664302231, 12.1755472301251,
11.5194674572021, 9.96115584796112, 9.81780018228714, 9.63513489838108,
10.4253277231294, 11.3183012557811, 11.1185381011592, 9.96624824193003,
7.65402009851437, 5.50717653230445, 5.24473780643133, 6.19238904297789,
6.93599445670332, 7.11943292487865, 7.32866216953468, 7.63206036224071,
9.2371217907975, 11.2002640132826, 13.7193995015036, 16.7902601285557,
19.3305707698712, 20.2148504879183, 21.4979873120721, 22.4540113451675,
21.9500706670038, 23.139826723073, 24.0600167163064, 22.993557015492,
23.1703395097053, 22.271229872254, 20.3555202946095, 19.3162082072558,
18.8280072776551, 19.1379798079274, 20.6811708326733, 22.5319239750355,
23.6710759824025, 23.9532055037987, 24.1252213268192, 22.239061902273,
20.5159009859375, 19.9022061775137, 19.201843383787, 19.2928574104222,
18.7873443594132, 17.4554347114053, 15.3241021154879, 13.2726074301503,
10.9897900673701, 8.6630456772674, 7.6766110641536, 7.39442667864587,
6.85348368659498, 6.94330448539479, 8.68748575108522, 9.94340524029253,
11.3459716195421, 12.6222256940808, 13.0544924568852, 12.6999777591204,
12.8334306951078, 11.8724990219318, 10.464906108888, 10.9203908040049,
12.1364358789909, 13.8895013675006, 12.7661176412758, 10.6911708882386,
9.78735743982178, 9.31335775413553, 8.45786232564943, 7.44711802910808,
6.04579747020212, 5.24918354597637, 2.40656564642687, -0.179378309558706,
-1.89946431728122, -2.1740949216585, -2.9788355483864, -3.40873960850159,
-3.47319509131722, -4.22078060504106, -3.52335942239245, -3.69502863293236,
-3.64808657384866, -2.36937095246308, -0.840329837492076, -0.378219909555418,
-3.10864479966237, -6.03316851427255, -6.95425994827077, -7.49143334996644,
-8.38887938665743, -8.3903593882357, -9.87883629256287, -10.3729170590871,
-10.7783783141719, -9.56633022763078, -6.40959720435223, -3.42914315839025,
-0.389370699463315, 2.05319830479142, 3.58463976476811, 5.20457649888809,
5.14013882814276, 7.21812070091704, 8.41690239348246, 9.41220467937966,
11.1953881513122, 11.3897098392757, 11.1151261163115, 11.4741790672218,
11.660968868729, 11.5050230626503, 11.0423390042534, 9.86974519021487,
9.06481522600995, 9.08818271585431, 11.4780000077644, 11.1325307461615,
10.9317568629199, 11.586369778789, 12.3282559225299, 13.3353983775986,
11.9828333466833, 12.8139946788888, 11.8765343473898, 10.3204689500048,
10.5303825161897, 10.4050785583056, 11.1524598745156, 11.309929885696,
13.5136783249772, 16.2159111266934, 18.5109126926361, 20.0293064139364,
21.1396625635502, 21.1910423781234, 21.5135364561873, 20.3645875840674,
20.8965206468081, 20.369790974705, 20.7851612237783, 20.4633866415465,
18.3265763987316, 17.0015673827674, 14.957374512239, 14.2483422417441,
14.7763852635369, 15.288796344533, 17.251450116616, 17.9895774944476,
19.1101656270122, 19.2697396909095, 21.2425753449284, 24.5265534186901,
26.9671027375081, 26.2308543601836, 26.7394326838022, 28.1107228796784,
30.7589818455625), .Tsp = c(1994, 2018.91666666667, 12), class = c("tsd",
"ts"), time.units = "Months", data.title = "Simulated Time Series C", response.units = "Sales")
simnse.tsd <-
structure(c(1.15934756631832, 3.38609522274297, 4.85885018577384,
6.73708128190157, 8.35605697438066, 11.2679257856272, 13.1199074587306,
12.9601623657429, 13.5282270207667, 14.4736206452486, 15.2834581374061,
17.3817622435523, 19.0719077956618, 19.2904173365323, 19.9517039892957,
21.9014813442401, 24.8159741014272, 27.859871255349, 31.3063873333031,
36.0982682468067, 41.9374301825314, 47.5415549595293, 53.8471509661912,
58.865350739683, 63.212444745095, 67.6778742949338, 72.564090508427,
77.6346182515617, 83.6446017732025, 91.3446581734734, 99.5817820053229,
108.121311286133, 117.371755305588, 129.284588193945, 143.537482327197,
158.989229716429, 174.244178080543, 188.319757754512, 202.267018509739,
216.325339121685, 229.181578429578, 240.164393885506, 248.312357403913,
253.959791506654, 262.037538470241, 271.447238459298, 280.596573823286,
289.963202706653, 297.854478998795, 306.42389510437, 316.279681813703,
325.099130054084, 331.94531359204, 337.790979219099, 344.680764757053,
350.75833001463, 353.185958250029, 351.412603353244, 345.637611255801,
338.697690115776, 333.536554725558, 330.390875271741, 327.631963089427,
324.530184163038, 321.14768574402, 317.896711823594, 315.440752828344,
313.878945333552, 314.434903778633, 315.530035397516, 317.162324322756,
318.212253321307, 319.97924750982, 323.839546067664, 328.109276379264,
332.35789906264, 336.382114127992, 338.60352049303, 340.021286946527,
341.075184168402, 341.151863778171, 340.532042334988, 339.202880302172,
336.179667813423, 332.7988320034, 331.392384752076, 332.339065278337,
333.511921144199, 333.042418539104, 329.82263742856, 324.502157314632,
317.218457742917, 308.614046721858, 300.269641771381, 292.205694713026,
284.590658653918, 276.860231068967, 268.621713663158, 258.97295113542,
248.366405163613, 237.924716009455, 228.775460460235, 221.493705814615,
215.722042460485, 212.619375938236, 213.46907739555, 217.652872756144,
222.874548528934, 227.287772664642, 231.372889687164, 235.64699868111,
242.057215481986, 250.593861050147, 260.886017782589, 272.757110119288,
283.96975750786, 294.01217635741, 303.283539065416, 310.791511931845,
317.435951824717, 323.629143634212, 329.734677310266, 335.851131314382,
339.008363504628, 339.976798826468, 341.757603219069, 343.989021927745,
345.978968502364, 345.56885637898, 342.881405666602, 339.688754030366,
336.776552044236, 333.635903863514, 330.16101029689, 328.135888227904,
328.875259282977, 330.030984868936, 330.518907703481, 330.992893243753,
331.653571281883, 330.89837825705, 328.518777406066, 326.566337830621,
327.216713941328, 329.839397557362, 332.574121716527, 333.801274797385,
335.068061853743, 338.121335437403, 341.93387856777, 346.193069987256,
350.00289409039, 353.316789164805, 355.337196737708, 355.976078199068,
355.341859608681, 355.83990460394, 357.209895649336, 358.400328016547,
359.742471432725, 360.919290500296, 362.11366497492, 363.717630855972,
365.279304288756, 367.153328956652, 367.975110452866, 368.462041988786,
370.039059981811, 369.696581181752, 367.528259927413, 366.476850997768,
366.118442180136, 365.667008322267, 365.054400617018, 364.30026595862,
361.360440550029, 356.280717912117, 352.107068191527, 348.669419079618,
346.056512301138, 342.346033959863, 338.760861229347, 336.290294657575,
334.081532928035, 333.307227726943, 333.95733226893, 334.918932025797,
335.157747823543, 336.085313445857, 337.980087925769, 338.045552897026,
336.944150726109, 335.085980843201, 333.207552604391, 331.379853629786,
328.528161946577, 327.826753263731, 331.096003272403, 336.230840247394,
342.265539269808, 348.539264085617, 356.457998301027, 366.010420547727,
376.661639391445, 387.810702350517, 399.297050731273, 412.288165368599,
424.863185873964, 434.385998812226, 443.256325680364, 451.827677077422,
459.751031527516, 466.294627726884, 471.361692744446, 475.093992384057,
478.728950501665, 483.181733008334, 489.561763331778, 497.842516273403,
505.798284462009, 513.960691926947, 523.479466302016, 533.940460706835,
546.440250738755, 559.860676537479, 573.21885790343, 586.708343792685,
600.475826247867, 614.552317404551, 629.382811643586, 646.159165093895,
663.490282610544, 680.062675545449, 697.315079039728, 715.745742624348,
735.84761140456, 755.604331258127, 774.663216781941, 794.439235239723,
814.419840743039, 833.821130664276, 852.606308725425, 872.095012283013,
891.589137422269, 908.580298379773, 924.32066967557, 939.905201732118,
954.237904956783, 967.0130342736, 979.76346461738, 991.839969630798,
1003.46326150684, 1016.19390208884, 1029.12545314433, 1042.24998748231,
1055.88729701731, 1069.57278020164, 1082.74076138982, 1095.41989704029,
1108.33123706031, 1120.65048432446, 1132.52508729459, 1143.85519310847,
1154.61635164973, 1165.65680533425, 1176.94155465649, 1188.04367764438,
1199.04496333681, 1212.03600300023, 1226.43811684844, 1239.37233877263,
1250.42708015385, 1261.1068719113, 1273.32618856379, 1286.52052923319,
1300.17981713778, 1313.61328810934, 1327.0324488962, 1340.01435555342,
1351.35614313644, 1361.58184366386, 1371.75349854771, 1381.06894405538,
1390.69610872959, 1402.73843261903, 1416.10158252147, 1431.05501729071,
1447.78561376111, 1463.96646747096, 1479.60766048617, 1496.34736407095,
1512.88990995342, 1528.88478194613, 1544.36401845001, 1559.70265814244,
1576.00718565649, 1593.88427583441, 1613.04757955542, 1632.40254137247,
1653.07578418788), .Tsp = c(1985, 2009.91666666667, 12), class = c("tsd",
"ts"), time.units = "Months", data.title = "Simulated Time Series E", response.units = "Sales")
simnsf.tsd <-
structure(c(0.145321311729639, 1.08147715140969, 0.95571413609106,
-0.665294218274026, -1.35478481505036, 0.375633838535074, 0.851821490822018,
-0.816263197966616, 0.777951487772364, -0.216178676087518, 1.32475520314266,
-0.000628636273401848, 0.22392572286804, -0.597065407450284,
1.67121456821894, -0.208071250853374, -0.558445550552278, 0.802793571244112,
0.513500275005644, -1.3160343441573, -0.328787298593256, -0.129125448518866,
-1.74397629760372, 2.20756209226172, 2.11000435621017, 1.1544867893895,
-0.00645220587326565, 0.255542044053189, -1.31025749615825, 0.32837202907182,
0.723230848810399, -0.433320520101033, 1.19398008494251, -0.157809623817692,
-1.15034297143656, 0.0785571356154024, 0.28640292967851, 0.530546506980045,
-1.32085007211697, -0.998525715429613, -0.137491663831701, -0.441344878367641,
1.82261671495727, -0.404875945826693, -1.14326449496035, 0.115853549587592,
-0.323219655076241, -0.0830790222106786, 0.999205349875565, 0.790399521764064,
-0.182075615244799, -1.12521093109578, -1.18157672725911, 0.756007369135095,
-0.349459978168558, -1.00738522164681, -0.442605443079102, 1.18944733858484,
0.606075067808832, -1.57838701048862, 0.501140307129434, 1.71070287158057,
0.712309135095796, -1.61498794722791, 0.0209320672565967, -0.450074123916808,
-0.154896456562797, -0.493406138432542, 1.10089496062559, 0.953416901510638,
-1.25396060692505, -0.666520598326744, 2.09597565831916, 0.372675015612771,
-0.275091333145222, 0.50388026104381, 0.152819729395416, 0.780600059370779,
0.0550242968387934, 0.922503087864248, -1.43512243748161, -0.35742990162244,
0.0475288450502609, -0.373932151713108, 1.43564104681612, -1.10268317689917,
-0.231142430258905, 0.786644021824513, -1.03413271218313, -1.42479954266257,
0.242320789307661, 1.56208081301305, -1.13777918643685, 1.85876194528305,
-1.09075880104085, 0.322568479714686, 0.424859558046259, -1.62583886900488,
0.0265326747792367, 1.10319090865809, 0.612721605199385, -0.688291314926541,
-0.817296276388316, -0.398113502266539, 0.0431750989068307, 0.219124941333595,
0.239343867636041, 0.540289993219851, 1.00806195278777, -0.283303441032395,
0.439873860015443, -0.192549498864093, 0.0492849245736311, 0.0940926702120575,
1.28458701692147, -1.09258686936365, 1.5997874402766, 0.0877057086766382,
-0.775286021470603, -1.39287433757625, 1.09717855723687, 0.789928258164623,
0.115656007549038, -1.27868461485697, 0.182058699461967, -0.113665876728097,
-0.334650178347047, -0.145289943027902, -1.65011877699445, -0.963532707042847,
1.3040068203828, 1.05660477167204, -0.171428891775892, -0.450132484829133,
-0.146727397541674, 0.166992159461815, 1.56055656499943, 0.129895802152072,
-1.05552916756099, 0.0410393135690807, -0.84347804164563, 0.338002805697672,
1.01153988477351, 0.207410019812254, -0.843664989081871, -0.330635904569987,
0.780358021557519, 2.07054230564521, -1.78679620450408, -0.47557248170715,
-0.43159464820393, 0.841777143872281, -0.518506272862936, -0.540887519192136,
0.51394007173509, -1.15370777944516, 0.225669114625866, -0.4302074738609,
1.14530374976583, 0.557658495666803, -1.17856537950253, 0.246995277340058,
-0.0108416346215488, 1.02768531041868, -0.312896501104083, -0.0293410833226261,
1.33405354568259, 0.0315364283599865, 1.19310034458678, 0.436352720566431,
0.453358009092453, 0.308918314127372, 1.0014297654589, -1.28717802821788,
-0.227029734952835, 0.308519177087932, -0.313066175273783, 2.21988750805776,
0.805139381789046, 1.15239358920607, -0.0108740307626512, 0.126864329910697,
0.257367697847648, -0.90243680744241, 0.618913983639886, -0.452416223341283,
0.648795269455023, 1.24821180264378, -1.21600342275268, -0.307877042289572,
-1.63803760717317, -1.22264358740959, 0.193584081456031, -0.231301255879227,
1.3937700145867, 0.0945545937028442, -1.51429769426471, 1.41565078936245,
0.534609739278479, -0.810123208854501, 0.202470613634549, -1.11038544288206,
-0.0437097263432526, 0.653196104448309, 2.42219960745574, 0.412632543458425,
0.34437681265171, 1.63564223624975, -0.255232080535661, -0.375204233749607,
0.371997465248226, 0.305848093881876, -1.18955394863951, -0.0705700660658803,
1.45626852441745, -0.268535699064325, 0.617408568036601, -0.61210021532781,
0.181051369981115, 1.38222953018286, 0.0684999426190955, 0.683348329164427,
0.791801512133181, -0.75717433643234, 0.0945218655883828, 0.111112574923555,
1.18072414315889, -1.38417237112264, 0.613984591586529, -0.264121263951476,
1.50654173157513, 0.0657078802733391, 0.427942097819508, 1.92435315469853,
0.93251106059829, 0.750810540532541, 1.19829065065922, 0.982572002381148,
-1.22871396881756, -0.0440836683210478, -0.518656189085296, -1.96302890588527,
-1.95841158140806, 0.254568096970847, -0.642590036281025, -1.72471361029022,
-0.712537601441807, 1.68188068095293, -0.160313498103141, -0.608085837215222,
0.980938749410171, -0.151436966694562, -0.962286286347449, -0.17274606541013,
0.762810299996445, -0.473938425968372, 0.790744460707272, 0.491207608416103,
0.189163785977594, -1.15925035720159, 0.409506582947946, 0.571634126826682,
-0.169812755474598, -1.45206768877095, 0.0829771020455928, 0.84820206889009,
0.358684449090031, 1.00545128878242, -0.161852905043049, -0.0185780027168274,
1.1003997574204, 0.0044433118603377, 0.51310891082916, -0.748381476302588,
-0.358077222633639, 1.08516183138803, -2.58411125559337, 0.000454650927733463,
-1.83031637230653, -0.562711457511278, 1.71036701771376, 1.066267733619,
0.588474767290676, -0.379899316267854, 1.19872722442205, -1.07157512416673,
-0.394429128729589, 0.276574677807522, -1.14315214551273, -0.254668161638425,
-0.433197163242312, -0.175244347216322, -1.39095861776584, 0.562229252911304,
1.12163716492794, -1.18899925270752, 0.867179959542321, 0.196563596006109,
-0.403938156094324, -1.10734026448595), .Tsp = c(1991, 2015.91666666667,
12), class = c("tsd", "ts"), time.units = "Months", data.title = "Simulated Time Series F", response.units = "Sales")
simsta04.tsd <-
structure(c(-1.7674, -1.1474, -3.8516, 3.2192, 1.9691, -9.522,
5.4356, 1.6375, -0.9568, 10.3978, -4.0845, -1.4745, -1.8195,
-9.2717, 0.3449, 8.0307, 2.6692, -2.3518, -0.9569, -14.6369,
15.3598, 1.8987, -2.6081, -5.705, -0.8346, 9.7834, -0.1643, -12.8384,
4.0617, 4.1687, 9.8813, 0.3602, -7.4134, 0.9831, -7.4019, -2.1492,
2.8407, 0.218, 0.6179, 0.1559, -0.5128, -0.0729, -5.865, 20.8604,
-4.7484, -3.2736, -8.0937, 8.1119, 0.4221, 4.7949, -12.7489,
-2.8799, 6.3491, 6.8736, -6.4488, 0.1577, -1.0541, -0.2337, -5.249,
12.0596, -4.8121, 4.8392, -8.1427, 6.2231, -6.8867, 2.5209, 5.9394,
-11.3916, 6.8227, 0.8028, -1.8708, -1.2621, 2.4791, 4.7385, -8.3789,
4.6964, -7.6919, 5.4443, -0.8282, 8.1315, -9.4022, 6.0988, 1.6006,
-9.7468, 4.1988, 1.9433, 6.2895, -8.1661, -4.4758, 3.7814, 7.6828,
-10.7915, -3.9504, 3.9794, 9.7873, -0.7255, -8.187, -0.534, 6.6723,
-2.008, 3.915, -3.7676, 7.4697, -7.1168, -1.9812, -1.1677, -5.1263,
12.5333, -6.6501, 0.8819, 4.1414, -6.9103, 16.6963, -20.44, 7.5918,
-3.2377, 4.4088, -7.8924, -3.893, 15.8235, -4.5997, 8.8287, -10.8687,
9.1084, 1.6465, -9.4107, -3.8286, 0.0144, 6.6854, 1.8182, -4.2032,
2.0015, -12.3823, 4.5066, -1.3608, 9.5921, -8.8937, -2.2918,
15.893, -7.6287, 5.877, -8.4608, 6.315, -7.5137, -3.7823, 4.1783,
2.7246, 3.6473, 7.4792, -12.1333, -0.4964, 2.1266, -8.9257, 1.9082,
10.0964, 0.2593, -7.0212, 9.169, -9.4903, 1.9428, 0.2308, -1.9223,
5.8129, 1.637, -11.0693, 9.6256, -1.3621, -1.6355, 0.7418, 2.3663,
-4.3211, -0.7899, 5.8895, -4.0838, 1.1928, 1.3214, -1.338, -8.5461,
8.999, 5.4083, -2.5902, 1.7206, 0.4793, -6.7568, -0.4538, 6.52,
-3.922, 0.1612, -3.4535, 3.7184, -4.198, 3.5596, 0.9489, -15.2556,
17.7206, 0.8985, -2.6459, -4.9107, -5.5344, 10.2003), .Tsp = c(1975,
1991.58333333333, 12), class = c("tsd", "ts"), time.units = "Months", data.title = "Simulated Time Series #4", response.units = "Sales")
simsta05.tsd <-
structure(c(3.9224, 6.8655, 8.2334, 12.8271, 13.5538, 8.9777,
1.0583, -2.4241, 1.7453, -1.4835, -12.9371, -10.0433, -9.967,
-0.0601, 3.3771, -1.4785, -0.8594, -3.6066, -5.1817, -8.4907,
-3.0208, 6.7099, 4.8914, 0.3471, -0.8526, -5.59, -4.7112, -5.3509,
6.9314, 6.7017, -7.1097, -0.783, 3.3048, 2.9805, 4.2633, 9.04,
11.4287, 6.3295, 2.6628, 3.295, 9.6518, 11.519, 5.531, 4.8461,
-4.4899, -10.4928, -11.002, -15.2548, -8.7725, 1.9396, 6.381,
6.2315, 4.7149, -6.851, -11.8151, -9.2682, -11.9291, -2.8438,
3.6022, 8.8603, 11.0818, 0.169, -3.4874, 2.4187, 3.2212, -3.9171,
-4.5163, 1.8965, -1.3498, -4.519, -2.2298, -0.0299, 5.7174, 5.1339,
2.3146, 10.0041, 17.459, 20.9994, 7.7468, -1.95, 1.5985, -0.2769,
3.384, -1.6527, -1.9528, 5.638, 2.2313, 0.8225, 8.4037, 2.7646,
0.481, 2.09, 3.954, 6.311, 5.5129, 8.4516, 8.1719, 6.1726, 4.8945,
-4.1036), .Tsp = c(1995, 2003.25, 12), class = c("tsd", "ts"), time.units = "Months", data.title = "Simulated Time Series #5", response.units = "Sales")
simsta06.tsd <-
structure(c(-17.5453, -16.7145, -11.1183, -10.5326, -12.6435,
-13.1911, -14.3396, -13.6014, -16.2087, -20.7392, -24.6198, -23.07,
-22.0925, -20.4542, -11.311, -4.6595, -6.2853, -11.7064, -11.3627,
-9.6781, -11.756, -15.2965, -10.9622, -3.0984, -6.3213, -8.5386,
-2.9085, -2.1933, -8.0181, -12.2948, -9.7439, -1.9549, -2.3808,
-7.525, -3.2487, 5.5608, 7.1488, 7.9443, 15.0668, 19.3905, 20.9623,
18.5867, 17.4125, 15.9692, 14.7597, 9.9033, 6.173, 4.7391, 4.5979,
5.9663, 3.2967, 1.2, -0.7649, 0.7292, -0.7244, -4.6094, -4.2354,
0.2971, 6.7877, 7.3673, 6.146, 5.4048, 2.9279, 2.2117, 0.5112,
-3.0081, -5.7744, -10.6538, -13.0511, -12.9905, -11.4297, -6.3326,
-1.8751, -4.4222, -8.5463, -10.2359, -7.5227, -11.5376, -19.7016,
-23.3872, -19.7561, -14.3019, -9.7804, -5.8372, -2.4125, -0.6972,
-3.2334, -0.1948, 0.2187, -2.4631, -2.2423, -5.1779, -10.8, -11.2721,
-11.4789, -14.0949, -13.4875, -14.5202, -10.916, -7.7752, -2.9818,
2.2396, 3.5822, 2.8997, 3.7824, 6.087, 8.9712, 10.0355, 9.2089,
0.5566, -2.5343, -7.6784, -13.9233, -13.0294, -12.6608, -14.0495,
-13.0325, -11.4763, -10.5995, -7.954, -5.6485, -4.8399, -3.017,
-2.3458, -2.3212, -0.044, 0.6889, -2.5866, -0.9177, -2.948, -7.4716,
-9.9214, -11.3497, -11.2012, -14.4494, -18.2097, -25.6323, -28.6962,
-28.5641, -35.2931, -40.1144, -39.9758, -39.0708, -33.4052, -28.8475,
-25.8654, -23.0287, -17.753, -11.9094, -11.1638, -9.8231, -3.5873,
3.0328, 8.3496, 9.1282, 6.8619, 6.6807, 4.0775, 2.521, 7.1171,
16.3632, 15.0369, 9.9544, 8.1634, 7.3754, 14.0644, 16.7149, 10.9549,
4.0347, -4.8332, -6.6078, -2.3316, 2.2085, 6.996, 10.6065, 12.1581,
9.9246, 11.7979, 17.2629, 20.3846, 19.5559, 14.5793, 12.001,
12.5199, 10.3157, 2.9533, -2.5438, 0.1818, 3.9688, 7.4793, 8.7655,
7.8896, 14.5412, 15.6018, 10.9125, 8.8748, 1.9497, -1.0831, 6.0675,
9.0867), .Tsp = c(1996, 2012.58333333333, 12), class = c("tsd",
"ts"), time.units = "Months", data.title = "Simulated Time Series #6", response.units = "Sales")
simsta07.tsd <-
structure(c(-23.7814, -7.3864, 10.195, 27.0184, 43.5026, 50.5045,
59.286, 68.715, 74.4184, 73.2678, 67.1455, 54.7752, 43.5609,
32.7782, 22.3298, 10.2845, -4.1767, -17.8887, -29.1068, -40.5666,
-47.2244, -48.1217, -49.6353, -44.4439, -39.5408, -38.5003, -37.2363,
-28.851, -21.9414, -15.8363, -7.2182, 4.7067, 18.6156, 28.6897,
32.6451, 32.1901, 36.2007, 34.2576, 28.2884, 19.7637, 10.2475,
0.5448, -10.5041, -14.5669, -17.9687, -16.5216, -13.8232, -15.9954,
-15.3703, -11.5513, -8.9912, -6.4458, -11.2976, -15.8529, -15.7624,
-15.5985, -15.0171, -9.2277, -2.0962, 6.3442, 15.0074, 25.5449,
34.1263, 43.1578, 47.2959, 44.6759, 39.4711, 28.0272, 19.0213,
13.8771, 8.3362, 2.9911, 1.7387, 2.7757, 4.8953, 4.9433, 2.9404,
0.1676, -8.3979, -9.7007, -11.156, -13.119, -15.0172, -10.2186,
-2.5184, 3.5999, 11.0659, 13.303, 18.3212, 18.505, 19.2596, 15.0777,
4.7899, -3.7854, -10.5577, -13.4035, -8.8045, -1.3938, 3.4482,
8.6698, 9.6948, 13.6172, 19.6686, 24.8103, 29.8496, 31.6873,
30.715, 23.1711, 13.5291, 1.2321, -7.3396, -13.5941, -17.1348,
-18.6093, -18.2971, -12.7818, -7.034, 2.4091, 8.8171, 10.835,
12.6964, 19.7745, 24.866, 26.2931, 28.2655, 28.3088, 26.9722,
23.1536, 20.9326, 17.9307, 7.6442, -1.1303, -11.6653, -21.8203,
-32.8887, -43.0766, -43.7704, -41.7031, -34.6792, -24.4548, -15.3355,
-7.3379, -1.5907, 7.8431, 16.5741, 24.0084, 32.6406, 46.2314,
58.9543, 73.4438), .Tsp = c(1979, 1991.41666666667, 12), class = c("tsd",
"ts"), time.units = "Months", data.title = "Simulated Time Series #7", response.units = "Sales")
simsta08.tsd <-
structure(c(-3.0804, -2.4774, -1.3018, 0.1765, -0.6499, -0.5624,
0.5036, -0.0566, -1.2906, -2.2584, -2.1577, -2.4276, -0.9809,
-2.2098, -2.2252, -0.8189, -1.0615, -1.4051, 0.0847, -1.276,
-1.6778, -1.9472, -2.7531, -3.0375, -1.759, -2.0338, -0.8037,
-1.0051, -0.364, 0.7643, 1.2132, 1.7476, 1.435, 2.7138, 2.4737,
2.5981, 0.7442, 0.1006, 0.922, -0.4965, 0.9705, -0.0535, -1.5484,
-2.0773, -0.6024, -0.7939, 0.1419, 1.0915, 0.9471, -0.1598, 1.5783,
0.9759, 1.5844, 2.0509, 3.4256, 3.1179, 1.9219, 2.2054, 1.455,
2.1602, 1.9681, 0.8467, 2.1553, 3.6772, 2.8661, 1.346, 0.4517,
0.0082, -1.0641, -0.6576, -1.326, -1.7235, -2.7075, -2.6197,
-1.538, -0.2999, -0.8095, -0.8132, 0.3292, 0.177, -0.4194, -1.7498,
-2.1879, -4.273, -4.7206, -4.4186, -5.6564, -7.4783, -4.5026,
-3.2844, -3.5951, -4.6219, -3.0913, -1.9718, -1.4748, -1.4906,
-2.1368, -0.7631, -0.8409, -1.3927, -0.1841, -0.2409, -0.7743,
-1.5447, -1.2414, 0.5721, -1.1238, -1.1428, -1.4474, -3.1206,
-4.4736, -3.2319, -2.847, -1.9767, -2.2257, -0.4837, -0.8808,
-1.6294, -2.2591, -2.4731, -2.2971, -2.7046, -2.9457, -3.9932,
-4.0519, -4.7752, -3.907, -3.2745, -2.6163, -2.2037, -0.0649,
-2.3323, -3.3074, -4.0062, -3.5119, -3.7446, -3.2265, -3.6436,
-3.8133, -3.9381, -3.8814, -3.0133, -2.7989, -2.241, -2.7862,
-0.4686, -1.1816, -1.1706, 0.2654, -2.7782), .Tsp = c(1989, 2001.41666666667,
12), class = c("tsd", "ts"), time.units = "Months", data.title = "Simulated Time Series #8", response.units = "Sales")
simsta09.tsd <-
structure(c(4.3156, -4.7453, 2.3208, -3.1083, 2.6742, -2.151,
2.0488, -1.5053, 1.4821, -2.465, 1.3248, -1.6869, 0.7568, -0.2313,
0.8757, 0.0041, 0.8091, -1.5225, 2.1307, 0.3076, 0.2713, 1.9333,
-1.3585, 0.197, -0.4964, -0.4834, -0.3429, 2.4838, -2.1294, 1.3038,
-2.4852, 0.7948, -1.7882, 1.8199, -1.924, 2.6595, -3.0906, 3.4746,
-2.5382, 2.6105, -3.5576, 4.6353, -5.6168, 3.4699, -2.8349, 2.4382,
-1.529, -0.5637, 1.374, -0.0757, 1.4964, -0.5754, -0.8648, -0.4966,
0.5803, -0.9824, -0.0701, -0.109, 1.1031, -0.2983, 1.3815, -2.1824,
2.0809, -2.241, 1.8069, 0.1048, 1.6935, -1.9835, 0.1558, -0.2769,
1.029, -1.7117, 1.7899, -0.6987, -0.2498, 0.4922, -1.0777, 0.7098,
-2.0097, 0.8493, -1.0716, -0.8353, -0.0457, 1.4627, 0.3452, -0.9717,
0.9081, -0.3227, -0.0198, 1.0562, -1.706, 2.5205, -3.8075, 3.2799,
-4.1078, 2.749, -5.3513, 4.539, -5.5346, 4.7357, -5.2706, 4.3944,
-3.1592, 1.6424, -1.7841, 1.8763, -0.9002, 0.7896, 0.1893, -1.8693,
1.0639, -0.3056, 1.7933, -2.7064, 2.4642, -2.29, 2.1775, -1.8545,
1.8692, -1.9562, 1.58, -1.8171, 0.8175, 0.832, -0.0933, -1.0321,
-0.2648, 2.0174, -2.203, 2.1155, -1.2519, 2.5781, -2.1431, 1.123,
-1.5558, 0.8031, -0.0031, -1.2022, 2.3163, -3.028, 1.9866, -2.2685,
1.8128, -2.4435, 3.4632, -2.5085, 3.0047, -2.1132, 3.398, -3.9723
), .Tsp = c(1986, 1998.41666666667, 12), class = c("tsd", "ts"
), time.units = "Months", data.title = "Simulated Time Series #9", response.units = "Sales")
simsta11.tsd <-
structure(c(2.1102, -0.5571, 0.635, -0.75, -2.4973, 5.4865, -7.0362,
4.9175, -3.5334, 4.2431, -2.7678, 1.074, -0.9709, 1.5055, -2.8513,
2.2936, -0.3202, -1.0711, 0.5841, 2.1127, -3.7291, 1.9311, -0.128,
0.5305, -1.583, 0.7924, -0.1918, 0.0085, 2.1953, -1.9445, -1.649,
2.1706, 0.4454, -2.8742, 3.1214, -1.8966, 0.9695, 0.1709, -0.8972,
1.1559, -1.9679, 1.6212, -0.559, 0.6397, -0.6394, -0.5305, 1.0446,
0.9287, -2.9556, 3.3709, -1.9157, 0.3596, -1.0641, 2.5434, -2.0064,
1.4312, -2.7505, 3.9671, -1.1317, -1.8948, 1.7624, -0.0152, -2.1331,
3.7055, -3.8856, 1.6019, 1.6103, -0.4813, -1.4925, 0.886, 0.1818,
-1.5062, 2.7065, -3.3325, 4.0274, -4.9576, 4.6384, -1.8609, -1.0445,
-0.4616, 2.0928, -0.1439, -2.5631, 3.6183, -2.3779, -0.2637,
1.0051, -1.0187, 1.2407, 0.2599, -3.044, 2.7888, -0.9741, 0.4698,
-2.2521, 3.6648, -0.0828, -4.2289, 2.2017, 1.0959, -1.8831, 2.0317,
-2.0991, 1.9311, -1.4104, 1.4819, -1.0086, -1.7181, 4.1624, -2.7856,
0.1815, 1.0224, -2.2749, 1.2844, 2.2422, -1.611, -0.5704, -1.6902,
3.6068, -2.9192, 2.8907, -3.2291, 1.1712, 1.7593, -2.2144, 0.6104,
-0.8061, 2.4485, -2.6462, 0.2335, 1.6957, -1.2649, -0.8024, 2.8081,
-2.8399, 1.1678, 0.4815, -2.7355, 3.3329, -1.6416, 0.2328, 1.1953,
-1.8775, 1.7808, -1.559, 1.7559, -1.8001, -0.3284, 1.5584, 0.3641,
-2.5016, 3.0297, -2.4005, 3.2001, -2.986, 1.1168, -0.2584, 0.4066,
-0.6951, -0.3433, 2.8242, -3.8109, 3.3922, -1.2639, -1.9505,
3.0152, -0.3407, -1.796, 0.8822, -0.7848, 0.9519, -0.3282, 0.5494,
1.1819, -4.5214, 2.7137, -0.7592, 2.2706, -2.7898, 2.6661, -1.9915,
-1.101, 1.9801, -0.672, -0.8329, 1.5474, -1.6157, 0.7611, 2.1939,
-2.0414, -1.119, 1.1893, -0.5716, 1.7378, -0.8087, -1.0009, 0.0728,
1.9529, -2.2015, 1.0395), .Tsp = c(1988, 2004.58333333333, 12
), class = c("tsd", "ts"), time.units = "Months", data.title = "Simulated Time Series #11", response.units = "Sales")
simsta13.tsd <-
structure(c(3.3937, 1.6444, 2.7582, 1.389, 2.5195, 2.1712, 2.1593,
2.9381, 1.6889, 3.4285, 2.1186, 3.9256, 3.3147, 1.0789, 2.978,
1.5067, 2.6848, 2.0754, 2.5234, 4.0964, 2.4909, 2.5986, 2.8088,
1.0751, 2.1762, 2.1695, 1.4662, 0.3558, -0.4432, 0.5548, 0.8313,
1.1096, 1.5712, 2.2629, 3.2794, 1.2891, 1.5055, 2.6024, 3.2392,
4.1706, 3.7653, 3.3652, 4.9996, 2.89, 4.8105, 2.056, 5.0861,
1.1552, 2.9141, 3.2826, 3.0213, 0.8775, 1.4455, 0.7015, 1.0423,
1.3519, 1.4415, 1.2564, 0.5438, 0.9447, -1.2003, 2.4329, 0.4304,
3.8151, 0.2249, 2.4118, 1.5269, 1.8376, 1.6721, -0.1487, 1.5018,
0.9376, 1.9472, 3.0854, 2.4668, 2.3503, 2.0251, 1.7381, 3.018,
2.7822, 1.9238, 1.8895, 1.7538, 2.3245, 2.3664, 3.7192, 2.6484,
1.5333, 0.3966, 0.2927, 0.8374, 1.3763, 1.1246, 0.0504, 0.9997,
0.3655, 1.8141, 1.17, 0.3229, 0.7824, 0.6779, 1.2515, 1.1254,
1.7595, 2.0066, 2.3592, 2.7032, 3.1119, 3.0187, 2.5666, 4.2454,
1.7164, 3.6691, 0.5461, 2.5871, 1.8199, 2.281, 2.9585, 1.587,
2.6567, 2.9269, 2.6184, 2.3742, 4.3296, 2.853, 3.5451, 2.6896,
2.8955, 1.5769, 1.4965, 3.9599, 2.8346, 3.2264, 3.7763, 4.7593,
3.9637, 5.3638, 3.3752, 3.7883, 3.5214, 1.5473, 4.0939, 2.0752,
1.1586, 0.2597, 0.4662, 2.2565, 0.673, 0.9604, -0.2983, -1.406,
0.2764, -0.323, 0.0372, -0.8857, 1.1652, -1.0328, 1.2959, 0.2522,
-0.2229, -1.8862, -1.0868, -1.3154, -1.5424, -0.9829, -2.3632,
-0.7286, -1.2522, 0.3421, 0.409, -0.0848, 0.6156, -1.5526, -0.8554,
-1.6013, 0.5125, -0.7539, 0.027, -0.317, 0.0055, 0.5395, 0.8184,
1.618, 1.7422, 3.5182, 2.6877, 3.9659, 4.8456, 4.2461, 5.6624,
5.5016, 6.088, 6.1274, 7.1315, 6.6674, 6.7147, 5.6796, 7.013,
5.875, 5.6929), .Tsp = c(1990, 2006.58333333333, 12), class = c("tsd",
"ts"), time.units = "Months", data.title = "Simulated Time Series #13", response.units = "Sales")
simsta15.tsd <-
structure(c(-0.5316, -1.2402, -1.3355, 0.086, 0.4229, 0.1548,
0.1509, 2.6891, 0.4805, -0.3916, -0.1467, -0.5698, -0.5443, 0.3873,
-1.0004, 1.4548, -0.2775, -0.0748, -1.0204, -0.3834, 2.9557,
-0.6616, 0.8603, -1.2585, -1.4331, -1.6309, -1.6155, -1.1241,
-0.121, -0.3579, -1.5482, -0.6803, 0.3556, 0.7712, -0.3354, -0.9318,
0.4982, 2.1172, -1.9404, -1.3303, -1.1807, 1.4626, -0.4338, 0.3387,
-0.7575, -2.2268, -1.2592, 0.4163, 1.9187, 1.1813, 2.0022, 0.6824,
1.5057, 0.6381, 0.9189, 0.9642, 2.5665, 1.1721, 1.3912, 1.7497,
-0.5785, 0.6058, -0.7032, -1.3807, -0.4635, -0.5449, 1.5497,
1.4986, 0.0507, -0.7457, -0.1068, -1.0281, -0.4915, 0.8652, -1.2224,
-0.4274, -0.0291, -0.4731, -0.9945, 0.7132, -0.4472, 0.4895,
0.8517, -0.1058, -1.6394, -0.5922, -0.6321, -0.2226, -0.1413,
-0.7285, 1.5696, -1.7953, -2.0643, -0.4854, -2.5153, -2.6083,
-2.1708, -0.4025, -1.2726, -1.7559, 0.0603, -1.1515, -1.6446,
0.2292, 0.8184, 0.2596, 1.0864, -0.2291, 0.7158, -0.8839, 0.4645,
1.6493, -0.0018, 0.2859, 1.0704, 0.64, -1.0801, 0.5569, 1.3258,
0.4878, -0.0805, -0.7043, -0.4148, -0.56, 0.3007, 0.7596, 1.9676,
1.4439, 0.8097, 0.567, 0.8794, 0.4682, 0.0244, 0.3471, -1.4509,
0.084, 0.8772, 0.9109, 0.9814, 0.8735, -1.2267, -0.5929, 0.0974,
-0.5439, -0.1864, -0.2267, 0.2909, 0.4391, 1.6007, -0.3391, 0.7604,
1.2667, -0.5469, -2.0717, 0.1032, -0.8957, -0.2995, -0.5436,
-1.3505, -1.7606, -1.2545, 0.5542, -1.8729, 0.5303, 0.3662, -0.7687,
-0.9429, -1.039, -1.8829, -0.5918, -0.3074, 1.0375, -0.8654,
0.9921, 1.4374, 1.3635, 1.6056, -2.7024, -0.3755, 1.2918, 0.5535,
0.0051, 1.0287, 0.185, -0.3267, -0.3881, 2.522, 2.956, 2.0676,
0.3443, -0.5042, 0.6972, 2.0633, 1.3433, 2.3265, 1.5505, 1.844,
1.7833, 1.5835, -0.3062), .Tsp = c(1992, 2008.58333333333, 12
), class = c("tsd", "ts"), time.units = "Months", data.title = "Simulated Time Series #15", response.units = "Sales")
ski.resort.tsd <-
structure(c(33.63, 36.46, 41.18, 43.16, 46.45, 50.63, 54.41,
58.66, 62.52, 65.55, 69.62, 72.92, 74.64, 80.31, 80.97, 87.75,
88.07, 94, 96.16, 96.98, 103.9, 107.77, 110.42, 114.91), .Tsp = c(1984,
1989.75, 4), class = c("tsd", "ts"), time.units = "Time", data.title = "Visitors to a Colarado Ski Resort", response.units = "Thousands of Visitors")
spot.tsd <-
structure(c(101, 82, 66, 35, 31, 7, 20, 92, 154, 125, 85, 68,
38, 23, 10, 24, 83, 132, 131, 118, 90, 67, 60, 47, 41, 21, 16,
6, 4, 7, 14, 34, 45, 43, 48, 42, 28, 10, 8, 2, 0, 1, 5, 12, 14,
35, 46, 41, 30, 24, 16, 7, 4, 2, 8, 17, 36, 50, 62, 67, 71, 48,
28, 8, 13, 57, 122, 138, 103, 86, 63, 37, 24, 11, 15, 40, 62,
98, 124, 96, 66, 64, 54, 39, 21, 7, 4, 23, 55, 94, 96, 77, 59,
44, 47, 30, 16, 7, 37, 74), .Tsp = c(1770, 1869, 1), class = c("tsd",
"ts"), time.units = "Year", data.title = "Wolfer Sunspots", response.units = "Number of Spots")
wqmeeker/RTseries documentation built on Dec. 31, 2022, 10 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
hstart <-
c(81.9, 79, 122.4, 143, 133.9, 123.5, 100, 103.7, 91.9, 79.1,
75.1, 62.3, 61.7, 63.2, 92.9, 115.9, 134.2, 131.6, 126.1, 130.2,
125.8, 137, 120.2, 83.1, 82.7, 87.2, 128.6, 164.9, 144.5, 142.5,
142.3, 141, 139.5, 143.3, 129.5, 99.3, 105.8, 94.6, 135.6, 159.9,
157.7, 150.5, 126.5, 127.5, 132.9, 125.8, 97.4, 85.3, 69.2, 77.2,
117.8, 130.6, 127.3, 141.9, 143.5, 131.5, 133.8, 143.8, 128.3,
124.1, 114.8, 104.6, 169.3, 203.6, 203.5, 196.8, 197, 205.9,
175.6, 181.7, 176.4, 155.3, 150.9, 153.6, 205.8, 213.2, 227.9,
226.2, 207.5, 231, 204.4, 218.2, 187.1, 152.7, 147.3, 139.5,
201.1, 205.4, 234.2, 203.4, 203.2, 199.9, 148.9, 149.5, 134.6,
90.6, 86.2, 109.6, 127.2, 160.9, 149.9, 149.5, 127.2, 114, 99.6,
97.2, 75.1, 54.9)
airline.tsd <-
structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119,
104, 118, 115, 126, 141, 135, 125, 149, 170, 170, 158, 133, 114,
140, 145, 150, 178, 163, 172, 178, 199, 199, 184, 162, 146, 166,
171, 180, 193, 181, 183, 218, 230, 242, 209, 191, 172, 194, 196,
196, 236, 235, 229, 243, 264, 272, 237, 211, 180, 201, 204, 188,
235, 227, 234, 264, 302, 293, 259, 229, 203, 229, 242, 233, 267,
269, 270, 315, 364, 347, 312, 274, 237, 278, 284, 277, 317, 313,
318, 374, 413, 405, 355, 306, 271, 306, 315, 301, 356, 348, 355,
422, 465, 467, 404, 347, 305, 336, 340, 318, 362, 348, 363, 435,
491, 505, 404, 359, 310, 337, 360, 342, 406, 396, 420, 472, 548,
559, 463, 407, 362, 405, 417, 391, 419, 461, 472, 535, 622, 606,
508, 461, 390, 432), .Tsp = c(1949, 1960.91666666667, 12), class = c("tsd",
"ts"), time.units = "Time", data.title = "International Airline Passengers", response.units = "Thousands of Passengers")
arvar.tsd <-
structure(c(2.49418349344500, 2.19791555129669, 2.52681485973857,
1.02485433922162, -0.404126479816618, 1.43831393011116, -0.30423854058667,
-0.229416503444800, -0.259212550181349, -0.0952812296151953,
1.60972373679443, 1.10112558986626, 2.93983967993911, 2.59264507598915,
3.06975050410658, 1.22265298735801, 1.13225323861019, 1.56565338460277,
0.80983613517144, 1.06504978311578, 0.934450930576095, -0.102299228217771,
0.361195547150562, -1.39663366878357, -2.83155513878509, -2.18557676059994,
-2.22619560483834, -1.32687329867256, -1.23941987607120, -3.67643732274592,
-3.52255197391341, -4.12560302916043, -4.03884000194663, -3.4291322794397,
-3.64168973401739, -4.11547312417068, -2.42052160594135, -2.75365726783317,
-4.5571487478656, -3.77996043626306, -3.94621535274784, -3.16845573673608,
-3.092027654678, -2.50971957435040, -2.48934203089474, -0.59738219435508,
-0.658026612959802, -2.53658546906453, -2.79649222860015, -0.665111077160542,
-0.226082183472929, -0.533642231402444, -0.193214345100895, 0.709648677959561,
1.28474305546287, 1.38594220257964, 0.398969304026898, 0.697020582509697,
1.30645592955438, -0.158087545909341, 0.108084505393979, -0.692896038486985,
-0.0157670615545895, -1.2934001316259, -3.34114596046092, -2.66337195078326,
-5.11686551933407, -5.09320062155485, -3.33625244372549, -1.64362580108572,
-2.06300965164961, -1.39571421442059, 1.03151237383667, 0.868725161889899,
1.39056336986240, 1.13642449524312, -0.966703916402927, -0.689919262234447,
-1.57095624832141, -2.52012968979304, -1.0549679901313, -1.98208349334097,
-3.54352071362868, -2.00644535294633, -1.76342251048298, -2.43771253387682,
-1.72399606694445, -0.166734124514600, 0.0346822051295777, -0.296038333560646,
-0.478828486905011, -0.39255595928837, -0.968204101237065, -0.89757680988768,
-0.799334880102748, 0.775757465746722, 1.91051272124497, 3.09381390945664,
2.60565376494407, 2.13584969487157, 2.15813625360424, 3.36586824451589,
2.92892602451968, 3.2538257803735, 2.88277567436959, 2.29381884574668,
1.46505238860527, 0.388005502764524, 0.532576197904928, -1.32556543549165,
-2.13301403581130, -2.37746222625055, -2.86981426701167, -2.20973596070329,
-2.17928785201433, -2.70961265882989, -1.68457910475283, -1.71832457605549,
-1.12390151389257, -0.541391631390272, -0.63493627915028, 0.463713472961299,
-0.586548473866429, -1.80331080308850, -1.02291381729086, -1.91491001054872,
-1.09514023879795, -1.40714741013393, -1.32824100182897, 0.0562145503400386,
-0.509129088126129, -1.42730973902542, -1.89279798486220, -1.59968987333805,
-0.530695663878053, -0.697381122310357, -0.583182108102971, 0.338545121968683,
-1.09301422501507, -0.2726123362285, 0.575356377424404, 0.110420081569092,
1.67665546486025, 0.605403456214713, 1.38253464152661, 0.844802924951523,
1.21774672211905, 1.30596592799471, 0.812067665148927, 1.46466376965593,
0.329455166613626, 0.428082181237924, -0.268176848089472, -1.47114755236037,
-0.537151858660892, 0.236240345387450, -0.531252114781828, 0.0492998817633826,
0.528370474045077, 0.670387835433448, 1.32266926601757, 2.61018622948514,
2.73971255488359, 1.89858672825204, 1.95607220923782, 3.23585131196642,
2.40671723776042, 2.16265706846765, 1.68714806822020, 1.91584290762547,
2.75756185147556, 2.88294555704666, 1.83133611044213, 0.559876352609634,
2.41672701034447, 2.2283626110311, 1.51908313438872, 2.30545463080969,
1.42991458496714, 0.299605695601128, -0.729693935654587, -0.848977515641556,
-0.163434722227774, -1.01657691837278, -0.626745183836896, -0.746118361099513,
0.542804759765927, 0.00836749309142744, -0.933856326107095, -1.12682529161960,
-1.37059740526992, -1.78894343980483, -2.08665946091437, -3.00178904296598,
-3.3695659502117, -3.90770189151132, -4.3587041788778, -5.02888518457814,
-5.02790688117354, -4.19570892449754, -3.76109267048895, -3.37592490896722,
-2.84225382935817, -3.47888935301568, -3.16458397654062, -1.18211299888761,
-2.72136666007633, -2.6809799013015, -2.78877521831000, -2.96491028932648,
-2.83356165391979, -2.32686329957393, -1.90296423871065, -2.40307942489516,
-1.82659203386659, -2.25241555547485, -0.833057220430245, 0.587432432384326,
2.75260532979147, 4.77056823291287, 5.45386542579337, 4.65919962300883,
5.00746957584454, 5.6573105566808, 5.47302322217613, 3.45326886761328,
3.08285187833129, 1.96558648876218, 2.99700324918947, 1.82624784643819,
1.33368134029838, 1.75533543707072, 2.4035305041710, 1.27480504373523,
2.02901130971081, 2.97207828830072, 1.63162683318090, 1.41434061553553,
0.909910319676757, 2.73163199061887, 2.21678578139642, 1.73420803268171,
-0.769184788951325, -0.411452496081471, 0.180807481241992, -1.21677164216349,
0.0396332220330479, 0.759412262002049, 1.11044741109709, 2.16788575103677,
0.734383679027143, 2.14890640051625, 2.25835619585795, 2.8967229542516,
2.60601764404857, 2.13783996957554, 0.951825786368205, 1.08563748370318,
-0.0207720869956129, 0.30677625810294, -0.444960019212019, -1.87463584032775,
-3.58486112767206, -2.00365738188098, -2.53436908294776, -1.06216672834169,
-1.50230310715765, -2.18177212388549, -2.6517355319357, -2.58698583326739,
-2.48461236815569, -1.37946061547531, -1.29302063463395, -0.530333463671177,
-0.327939859409702), .Tsp = c(1, 275, 1), class = c("tsd", "ts"
), time.units = "Time", data.title = "Simulated data", response.units = "Data")
att.stock.tsd <-
structure(c(61, 61.625, 61, 64, 63.75, 63.375, 63.875, 61.875,
61.5, 61.625, 62.125, 61.625, 61, 61.875, 61.625, 59.625, 58.75,
58.75, 58.25, 58.5, 57.75, 57.125, 57.75, 58.875, 58, 57.875,
58, 57.125, 57.25, 57.375, 57.125, 57.5, 58.375, 58.125, 56.625,
56.25, 56.25, 55.125, 55, 55.125, 53, 52.375, 52.875, 53.5, 53.375,
53.375, 53.5, 53.75, 54, 53.125, 51.875, 52.25), .Tsp = c(1,
52, 1), class = c("tsd", "ts"), time.units = "Week", data.title = "1979 Weekly Closing Price of ATT Common Stock", response.units = "Dollars")
boston.robberies.tsd <-
structure(c(41, 39, 50, 40, 43, 38, 44, 35, 39, 35, 29, 49, 50,
59, 63, 32, 39, 47, 53, 60, 57, 52, 70, 90, 74, 62, 55, 84, 94,
70, 108, 139, 120, 97, 126, 149, 158, 124, 140, 109, 114, 77,
120, 133, 110, 92, 97, 78, 99, 107, 112, 90, 98, 125, 155, 190,
236, 189, 174, 178, 136, 161, 171, 149, 184, 155, 276, 224, 213,
279, 268, 287, 238, 213, 257, 293, 212, 246, 353, 339, 308, 247,
257, 322, 298, 273, 312, 249, 286, 279, 309, 401, 309, 328, 353,
354, 327, 324, 285, 243, 241, 287, 355, 460, 364, 487, 452, 391,
500, 451, 375, 372, 302, 316, 398, 394, 431, 431), .Tsp = c(1966,
1975.75, 12), class = c("tsd", "ts"), time.units = "Time", data.title = "Number of Armed Robberies in Boston", response.units = "Number")
change.inventory.tsd <-
structure(c(4.4, 5.8, 6.7, 7.1, 5.7, 4.1, 4.6, 4.3, 2, 2.2, 3.6,
-2.2, -5.1, -4.9, 0.1, 4.1, 3.8, 9.9, 0, 6.5, 10.8, 4.1, 2.7,
-2.9, -2.9, 1.5, 5.7, 5, 7.9, 6.8, 7.1, 4.1, 5.5, 5.1, 8, 5.6,
4.5, 6.1, 6.7, 6.1, 10.6, 8.6, 11.6, 7.6, 10.9, 14.6, 14.5, 17.4,
11.7, 5.8, 11.5, 11.7, 5, 10, 8.9, 7.1, 8.3, 10.2, 13.3, 6.2), .Tsp = c(1955,
1969.75, 4), class = c("tsd", "ts"), time.units = "Year", data.title = "Change in Inventories", response.units = "Billions of Dollars")
female.unemployment.d <-
structure(c(375, 384, 383, 326, 344, 375, 419, 424, 429, 399,
376, 288, 360, 376, 360, 381, 354, 301, 333, 339, 316, 352, 378,
360, 388, 398, 377, 383, 449, 415, 429, 369, 414, 462, 447, 403,
409, 390, 380, 438, 431, 426, 348, 394, 396, 451, 384, 491, 466,
454, 442, 475, 401, 406, 385, 380, 422, 397, 430, 433, 421, 374,
401, 451, 465, 456, 469, 466, 412, 427, 414, 384, 328, 395, 381,
360, 383, 383, 403, 425, 422, 414, 382, 390, 320, 412, 437, 421,
450, 442, 450, 412, 422, 372, 375, 392, 356, 392, 426, 442, 426,
406, 392, 426, 445, 464, 379, 409, 497, 459, 513, 549, 447, 445,
432, 514, 565, 557, 601, 582, 587, 560, 590, 556, 582, 527, 585,
556, 574, 556, 582, 583, 644, 620, 618, 623, 546, 568, 595, 605,
598, 592, 558, 595, 549, 637, 568, 605, 594, 567, 545, 545, 592,
576, 593, 603, 631, 614, 617, 546, 632, 673, 732, 593, 693, 730,
731, 733, 802, 755, 805, 751, 855, 769, 800, 825, 799, 802, 765,
827, 760, 781, 769, 766, 752, 751, 761, 873, 750, 758, 772, 791,
813, 781, 797, 802, 782, 838, 756, 764, 796, 781, 780, 679, 748,
759, 749, 756, 802, 754, 792, 772, 769, 731, 746, 741, 712, 723,
698, 746, 754, 735, 722, 737, 728, 773, 723, 741, 738, 765, 748,
707, 808, 746, 773, 751, 721, 731, 735, 701, 762, 783, 796, 803,
806, 765, 781, 768, 812, 854, 858, 818, 856, 897, 817, 872, 895,
825, 922, 915, 902, 908, 911, 919, 861, 827, 855, 867, 836, 916,
828, 835, 792, 771, 757, 756, 712, 733, 746, 728, 707, 666, 636,
676, 696, 654, 613, 677, 705, 680, 699, 650, 687, 638, 670, 555,
631, 676, 659, 689), .Tsp = c(1961, 1985.91666666667, 12), class = c("tsd",
"ts"), time.units = "Year", data.title = "US Unemployed Females Ages 16-19", response.units = "Thousands")
gas.oil.tsd <-
structure(c(16.6, 16.9, 17.1, 17.5, 18.1, 18.3, 19, 19.1, 19.8,
20.8, 20.9, 21.4, 21.8, 22.3, 22.5, 23.1, 23.5, 23.4, 24, 24.6,
24.8, 24.7, 25.5, 26.6, 27.6, 27.9, 28.4, 30.6, 32.4, 36.9, 38.2,
38.9, 38.6, 39.3, 41.3, 42.4, 42.8, 43, 44.1, 45.9, 47.2, 48.6,
48.3, 48.5, 49.3, 49.9, 51.5, 54.3, 57.7, 62.2, 70.5, 75.9, 80.7,
84.4, 85.1, 88.9, 94.1, 95.1, 94.6, 94.7, 93.4, 88.6, 89.9, 89.6
), .Tsp = c(1967, 1982.75, 4), class = c("tsd", "ts"), time.units = "Year", data.title = "US Consumption of Gas and Oil 1967-1982", response.units = "Billions of Dollars")
gasrx.tsd <-
structure(c(-0.109, 0, 0.178, 0.339, 0.373, 0.441, 0.461, 0.348,
0.127, -0.18, -0.588, -1.055, -1.421, -1.52, -1.302, -0.814,
-0.475, -0.193, 0.088, 0.435, 0.771, 0.866, 0.875, 0.891, 0.987,
1.263, 1.775, 1.976, 1.934, 1.866, 1.832, 1.767, 1.608, 1.265,
0.79, 0.36, 0.115, 0.088, 0.331, 0.645, 0.96, 1.409, 2.67, 2.834,
2.812, 2.483, 1.929, 1.485, 1.214, 1.239, 1.608, 1.905, 2.023,
1.815, 0.535, 0.122, 0.009, 0.164, 0.671, 1.019, 1.146, 1.155,
1.112, 1.121, 1.223, 1.257, 1.157, 0.913, 0.62, 0.255, -0.28,
-1.08, -1.551, -1.799, -1.825, -1.456, -0.944, -0.57, -0.431,
-0.577, -0.96, -1.616, -1.875, -1.891, -1.746, -1.474, -1.201,
-0.927, -0.524, 0.04, 0.788, 0.943, 0.93, 1.006, 1.137, 1.198,
1.054, 0.595, -0.08, -0.314, -0.288, -0.153, -0.109, -0.187,
-0.255, -0.229, -0.007, 0.254, 0.33, 0.102, -0.423, -1.139, -2.275,
-2.594, -2.716, -2.51, -1.79, -1.346, -1.081, -0.91, -0.876,
-0.885, -0.8, -0.544, -0.416, -0.271, 0, 0.403, 0.841, 1.285,
1.607, 1.746, 1.683, 1.485, 0.993, 0.648, 0.577, 0.577, 0.632,
0.747, 0.9, 0.993, 0.968, 0.79, 0.399, -0.161, -0.553, -0.603,
-0.424, -0.194, -0.049, 0.06, 0.161, 0.301, 0.517, 0.566, 0.56,
0.573, 0.592, 0.671, 0.933, 1.337, 1.46, 1.353, 0.772, 0.218,
-0.237, -0.714, -1.099, -1.269, -1.175, -0.676, 0.033, 0.556,
0.643, 0.484, 0.109, -0.31, -0.697, -1.047, -1.218, -1.183, -0.873,
-0.336, 0.063, 0.084, 0, 0.001, 0.209, 0.556, 0.782, 0.858, 0.918,
0.862, 0.416, -0.336, -0.959, -1.813, -2.378, -2.499, -2.473,
-2.33, -2.053, -1.739, -1.261, -0.569, -0.137, -0.024, -0.05,
-0.135, -0.276, -0.534, -0.871, -1.243, -1.439, -1.422, -1.175,
-0.813, -0.634, -0.582, -0.625, -0.713, -0.848, -1.039, -1.346,
-1.628, -1.619, -1.149, -0.488, -0.16, -0.007, -0.092, -0.62,
-1.086, -1.525, -1.858, -2.029, -2.024, -1.961, -1.952, -1.794,
-1.302, -1.303, -0.918, -0.798, -0.867, -1.047, -1.123, -0.876,
-0.395, 0.185, 0.662, 0.709, 0.605, 0.501, 0.603, 0.943, 1.223,
1.249, 0.824, 0.102, 0.025, 0.382, 0.922, 1.032, 0.866, 0.527,
0.093, -0.458, -0.748, -0.947, -1.029, -0.928, -0.645, -0.424,
-0.276, -0.158, -0.033, 0.102, 0.251, 0.28, 0, -0.493, -0.759,
-0.824, -0.74, -0.528, -0.204, 0.034, 0.204, 0.253, 0.195, 0.131,
0.017, -0.182, -0.262), .Tsp = c(1, 296, 1), class = c("tsd",
"ts"), time.units = "Time", data.title = "Coded Gas Rate (input)", response.units = "Std. Cu ft/sec")
gasry.tsd <-
structure(c(53.8, 53.6, 53.5, 53.5, 53.4, 53.1, 52.7, 52.4, 52.2,
52, 52, 52.4, 53, 54, 54.9, 56, 56.8, 56.8, 56.4, 55.7, 55, 54.3,
53.2, 52.3, 51.6, 51.2, 50.8, 50.5, 50, 49.2, 48.4, 47.9, 47.6,
47.5, 47.5, 47.6, 48.1, 49, 50, 51.1, 51.8, 51.9, 51.7, 51.2,
50, 48.3, 47, 45.8, 45.6, 46, 46.9, 47.8, 48.2, 48.3, 47.9, 47.2,
47.2, 48.1, 49.4, 50.6, 51.5, 51.6, 51.2, 50.5, 50.1, 49.8, 49.6,
49.4, 49.3, 49.2, 49.3, 49.7, 50.3, 51.3, 52.8, 54.4, 56, 56.9,
57.5, 57.3, 56.6, 56, 55.4, 55.4, 56.4, 57.2, 58, 58.4, 58.4,
58.1, 57.7, 57, 56, 54.7, 53.2, 52.1, 51.6, 51, 50.5, 50.4, 51,
51.8, 52.4, 53, 53.4, 53.6, 53.7, 53.8, 53.8, 53.8, 53.3, 53,
52.9, 53.4, 54.6, 56.4, 58, 59.4, 60.2, 60, 59.4, 58.4, 57.6,
56.9, 56.4, 56, 55.7, 55.3, 55, 54.4, 53.7, 52.8, 51.6, 50.6,
49.4, 48.8, 48.5, 48.7, 49.2, 49.8, 50.4, 50.7, 50.9, 50.7, 50.5,
50.4, 50.2, 50.4, 51.2, 52.3, 53.2, 53.9, 54.1, 54, 53.6, 53.2,
53, 52.8, 52.3, 51.9, 51.6, 51.6, 51.4, 51.2, 50.7, 50, 49.4,
49.3, 49.7, 50.6, 51.8, 53, 54, 55.3, 55.9, 55.9, 54.6, 53.5,
52.4, 52.1, 52.3, 53, 53.8, 54.6, 55.4, 55.9, 55.9, 55.2, 54.4,
53.7, 53.6, 53.6, 53.2, 52.5, 52, 51.4, 51, 50.9, 52.4, 53.5,
55.6, 58, 59.5, 60, 60.4, 60.5, 60.2, 59.7, 59, 57.6, 56.4, 55.2,
54.5, 54.1, 54.1, 54.4, 55.5, 56.2, 57, 57.3, 57.4, 57, 56.4,
55.9, 55.5, 55.3, 55.2, 55.4, 56, 56.5, 57.1, 57.3, 56.8, 55.6,
55, 54.1, 54.3, 55.3, 56.4, 57.2, 57.8, 58.3, 58.6, 58.8, 58.8,
58.6, 58, 57.4, 57, 56.4, 56.3, 56.4, 56.4, 56, 55.2, 54, 53,
52, 51.6, 51.6, 51.1, 50.4, 50, 50, 52, 54, 55.1, 54.5, 52.8,
51.4, 50.8, 51.2, 52, 52.8, 53.8, 54.5, 54.9, 54.9, 54.8, 54.4,
53.7, 53.3, 52.8, 52.6, 52.6, 53, 54.3, 56, 57, 58, 58.6, 58.5,
58.3, 57.8, 57.3, 57), .Tsp = c(1, 296, 1), class = c("tsd",
"ts"), time.units = "Time", data.title = "CO2 (output)", response.units = "Percent CO2")
machine.tool.ship.tsd <-
structure(c(10285, 11490, 13975, 10590, 12130, 12760, 10005,
8895, 11555, 10775, 10355, 13015, 8645, 9770, 10530, 10110, 9845,
12220, 8385, 7405, 10840, 10460, 9220, 11815, 9385, 8735, 9820,
8305, 9710, 10060, 7490, 6215, 8335, 7095, 5580, 8560, 5765,
5940, 6485, 7175, 5255, 6075, 4530, 4090, 5890, 4790, 4170, 7065,
3960, 4640, 5675, 4955, 5715, 7005, 4780, 4845, 7625, 6385, 6620,
9240, 6615, 7440, 9880, 7630, 10060, 10290, 7265, 7690, 9575,
9845, 8635, 12450, 8410, 9585, 12930, 12300, 11990, 12575, 10500,
8935, 15135, 12905, 12890, 16430), .Tsp = c(1968, 1974.91666666667,
12), class = c("tsd", "ts"), time.units = "Year", data.title = "Machine-Tool Shipments 1968-1975", response.units = "Thousands of Dollars")
male.unemployment.tsd <-
structure(c(707, 655, 638, 574, 552, 980, 926, 680, 597, 637,
660, 704, 758, 835, 747, 617, 554, 929, 815, 702, 640, 588, 669,
675, 610, 651, 605, 592, 527, 898, 839, 614, 594, 576, 672, 651,
714, 715, 672, 588, 567, 1057, 949, 683, 771, 708, 824, 835,
980, 969, 931, 892, 828, 1350, 1218, 977, 863, 838, 866, 877,
1007, 951, 906, 911, 812, 1172, 1101, 900, 841, 853, 922, 886,
896, 936, 902, 765, 735, 1234, 1052, 868, 798, 751, 820, 725,
821, 895, 851, 734, 636, 994, 990, 750, 727, 754, 792, 817, 856,
886, 833, 733, 675, 1004, 956, 777, 761, 709, 777, 771, 840,
847, 774, 720, 848, 1240, 1168, 936, 853, 910, 953, 874, 1026,
1030, 946, 860, 856, 1190, 1038, 883, 843, 857, 1016, 1003), .Tsp = c(1971,
1981.91666666667, 12), class = c("tsd", "ts"), time.units = "Year", data.title = "US Unemployed Males Ages 16-19", response.units = "Thousands")
oad.tsd <-
structure(c(6.6011, 6.55576, 6.5181, 6.42498, 6.43868, 6.48173,
6.71284, 6.64639, 6.511, 6.51021, 6.58769, 6.61386, 6.70224,
6.65245, 6.58104, 6.50932, 6.51981, 6.64591, 6.77194, 6.71382,
6.60164, 6.58158, 6.61455, 6.70228, 6.77956, 6.75018, 6.66494,
6.56197, 6.57278, 6.85069, 6.76831, 6.75746, 6.71462, 6.64869,
6.70601, 6.75843, 6.85132, 6.85432, 6.75464, 6.69287, 6.71209,
6.79801, 6.90086, 6.95501, 6.78619, 6.77511, 6.84878, 6.96915,
6.94209, 6.90815, 6.79581, 6.77106, 6.7663, 6.92218, 7.02025,
7.02929, 6.81991, 6.80915, 6.88408, 6.9129, 6.97866, 6.94202,
6.87909, 6.79965, 6.81259, 6.89272, 7.16972, 6.93213, 6.82103,
6.85578, 6.95368, 6.9952, 7.0458, 7.0625, 6.99577, 6.89578, 6.86417,
6.99927, 7.16027, 7.11666, 6.89878, 6.93408, 6.97616, 7.07897,
7.14766, 7.05902, 7.00532, 6.89115, 6.89297, 7.01257, 7.19739,
7.09346, 6.9631, 7.02267, 7.09898, 7.19206, 7.29256, 7.13518,
7.00859, 6.95518, 7.01947, 7.13228, 7.29528, 7.09632, 7.02693,
7.0162, 7.11002, 7.23462, 7.32306, 7.30641, 7.17916, 7.02096,
7.04144, 7.17437, 7.26813, 7.244, 7.18675, 7.12274, 7.17493,
7.27526), .Tsp = c(1970, 1979.91666666667, 12), class = c("tsd",
"ts"), time.units = "Time", data.title = "Monthly Peak Load for Iowa Electricity", response.units = "Millions of Kilowatt-hours")
ohio.tsd <-
structure(c(22.671, 20.7, 23.32, 21.826, 22.299, 22.385, 21.597,
23.114, 22.703, 24.362, 25.57, 27.476, 26.968, 24.159, 28.517,
27.183, 28.332, 27.576, 29.189, 31.382, 30.654, 33.765, 34.27,
36.67, 37.35, 34.212, 36.43, 34.368, 34.826, 34.26, 31.859, 34.983,
33.657, 37.134, 37.103, 37.64, 38.297, 33.753, 36.862, 35.004,
35.35, 33.645, 34.674, 36.561, 34.942, 37.34, 36.211, 37.014,
37.739, 33.463, 36.484, 33.967, 35.496, 34.2, 35.153, 36.128,
35.835, 38.589, 37.623, 42.916, 41.933, 37.932, 41.393, 38.244,
38.913, 40.321, 39.037, 39.664, 38.677, 38.931, 40.208, 44.824,
44.802, 42.863, 44.665, 39.942, 40.22, 39.572, 39.372, 41.841,
39.876, 40.19, 39.284, 42.217, 40.923, 36.123, 40.051, 38.816,
39.272, 37.94, 39.714, 41.118, 42.524, 42.294, 40.56, 45.462,
46.508, 40.78, 44.056, 41.815, 42.579, 41.715, 40.051, 43.383,
41.257, 43.238, 43.915, 45.18, 47.387, 42.852, 45.564, 44.707,
44.977, 43.758, 44.556, 45.168, 43.339, 46.107, 46.241, 49.788,
48.37, 44.083, 46.817, 44.255, 45.8, 46.213, 46.053, 45.031,
44.516, 45.809, 46.169, 48.166, 50.083, 45.075, 49.728, 45.782,
46.05, 46.201, 45.862, 48.01, 47.355, 48.428, 48.362, 51.139,
50.166, 46.896, 51.932, 48.246, 48.182, 49.759, 50.317, 51.563,
48.997, 52.122, 53.584, 55.669, 56.057, 52.292, 54.574, 51.629,
53.643, 54.104, 53.912, 56.603, 53.949, 56.922, 57.059, 57.992,
61.747, 58.705, 58.61, 54.083, 56.75, 60.387, 61.145, 63.937,
56.292, 63.407, 62.217, 64.865, 65.039, 61.374, 63.489, 62.134,
63.242, 64.663, 71.761, 69.905, 63.86, 64.3, 63.214, 70.95, 68.963,
61.649, 67.677, 61.205, 62.405, 65.166, 69.819, 71.577, 65.105,
65.248), .Tsp = c(1954, 1970.75, 12), class = c("tsd", "ts"), time.units = "Year", data.title = "Ohio Electric Power Consumption", response.units = "Billions of Kilowatt-hours")
ozone.tsd <-
structure(c(2.7, 2, 3.6, 5, 6.5, 6.1, 5.9, 5, 6.4, 7.4, 8.2,
3.9, 4.1, 4.5, 5.5, 3.8, 4.8, 5.6, 6.3, 5.9, 8.7, 5.3, 5.7, 5.7,
3, 3.4, 4.9, 4.5, 4, 5.7, 6.3, 7.1, 8, 5.2, 5, 4.7, 3.7, 3.1,
2.5, 4, 4.1, 4.6, 4.4, 4.2, 5.1, 4.6, 4.4, 4, 2.9, 2.4, 4.7,
5.1, 4, 7.5, 7.7, 6.3, 5.3, 5.7, 4.8, 2.7, 1.7, 2, 3.4, 4, 4.3,
5, 5.5, 5, 5.4, 3.8, 2.4, 2, 2.2, 2.5, 2.6, 3.3, 2.9, 4.3, 4.2,
4.2, 3.9, 3.9, 2.5, 2.2, 2.4, 1.9, 2.1, 4.5, 3.3, 3.4, 4.1, 5.7,
4.8, 5, 2.8, 2.9, 1.7, 3.2, 2.7, 3, 3.4, 3.8, 5, 4.8, 4.9, 3.5,
2.5, 2.4, 1.6, 2.3, 2.5, 3.1, 3.5, 4.5, 5.7, 5, 4.6, 4.8, 2.1,
1.4, 2.1, 2.9, 2.7, 4.2, 3.9, 4.1, 4.6, 5.8, 4.4, 6.1, 3.5, 1.9,
1.8, 1.9, 3.7, 4.4, 3.8, 5.6, 5.7, 5.1, 5.6, 4.8, 2.5, 1.5, 1.8,
2.5, 2.6, 1.8, 3.7, 3.7, 4.9, 5.1, 3.7, 5.4, 3, 1.8, 2.1, 2.6,
2.8, 3.2, 3.5, 3.5, 4.9, 4.2, 4.7, 3.7, 3.2, 1.8, 2, 1.7, 2.8,
3.2, 4.4, 3.4, 3.9, 5.5, 3.8, 3.2, 2.3, 2.2, 1.3, 2.3, 2.7, 3.3,
3.7, 3, 3.8, 4.7, 4.6, 2.9, 1.7, 1.3, 1.8, 2, 2.2, 3, 2.4, 3.5,
3.5, 3.3, 2.7, 2.5, 1.6, 1.2, 1.5, 2, 3.1, 3, 3.5, 3.4, 4, 3.8,
3.1, 2.1, 1.6, 1.3), .Tsp = c(1955, 1972.91666666667, 12), class = c("tsd",
"ts"), time.units = "Year", data.title = "Monthly Average of Hourly Readings of Ozone in Downtown Los Angeles", response.units = "pphm")
Passengers.tsd <-
structure(c(112L, 118L, 132L, 129L, 121L, 135L, 148L, 148L, 136L,
119L, 104L, 118L, 115L, 126L, 141L, 135L, 125L, 149L, 170L, 170L,
158L, 133L, 114L, 140L, 145L, 150L, 178L, 163L, 172L, 178L, 199L,
199L, 184L, 162L, 146L, 166L, 171L, 180L, 193L, 181L, 183L, 218L,
230L, 242L, 209L, 191L, 172L, 194L, 196L, 196L, 236L, 235L, 229L,
243L, 264L, 272L, 237L, 211L, 180L, 201L, 204L, 188L, 235L, 227L,
234L, 264L, 302L, 293L, 259L, 229L, 203L, 229L, 242L, 233L, 267L,
269L, 270L, 315L, 364L, 347L, 312L, 274L, 237L, 278L, 284L, 277L,
317L, 313L, 318L, 374L, 413L, 405L, 355L, 306L, 271L, 306L, 315L,
301L, 356L, 348L, 355L, 422L, 465L, 467L, 404L, 347L, 305L, 336L,
340L, 318L, 362L, 348L, 363L, 435L, 491L, 505L, 404L, 359L, 310L,
337L, 360L, 342L, 406L, 396L, 420L, 472L, 548L, 559L, 463L, 407L,
362L, 405L, 417L, 391L, 419L, 461L, 472L, 535L, 622L, 606L, 508L,
461L, 390L, 432L), .Tsp = c(1949, 1960.91666666667, 12), class = c("tsd",
"ts"), time.units = "Year", data.title = "International Airline Passengers", response.units = "Thousands of Passengers")
savings.rate.tsd <-
structure(c(4.9, 5.2, 5.7, 5.7, 6.2, 6.7, 6.9, 7.1, 6.6, 7, 6.9,
6.4, 6.6, 6.4, 7, 7.3, 6, 6.3, 4.8, 5.3, 5.4, 4.7, 4.9, 4.4,
5.1, 5.3, 6, 5.9, 5.9, 5.6, 5.3, 4.5, 4.7, 4.6, 4.3, 5, 5.2,
6.2, 5.8, 6.7, 5.7, 6.1, 7.2, 6.5, 6.1, 6.3, 6.4, 7, 7.6, 7.2,
7.5, 7, 7.6, 7.2, 7.5, 7.8, 7.2, 7.5, 5.6, 5.7, 4.9, 5.1, 6.2,
6, 6.1, 7.5, 7.8, 8, 8, 8.1, 7.6, 7.1, 6.6, 5.6, 5.9, 6.6, 6.8,
7.8, 7.9, 8.7, 7.7, 7.3, 6.7, 7.5, 6.4, 9.7, 7.5, 7.1, 6.4, 6,
5.7, 5, 4.2, 5.1, 5.4, 5.1, 5.3, 5, 4.8, 4.7, 5, 5.4, 4.3, 3.5
), .Tsp = c(1955, 1980.75, 4), class = c("tsd", "ts"), time.units = "Year", data.title = "US Savings Rate for 1955-1980", response.units = "Percent of Disposable Income")
simnsa.tsd <-
structure(c(50.7, 44.092, 54.004, 57.7296, 49.5032, 60.1744,
49.736, 45.62, 71.7936, 54.0888, 48.1592, 62.232, 57.5096, 70.3368,
65.3608, 46.784, 57.8912, 61.2024, 64.5216, 69.0184, 59.7592,
63.412, 68.8832, 63.8432, 66.3768, 85.5552, 43.2032, 79.2968,
66.6368, 77.1784, 68.428, 73.0128, 70.5848, 65.6632, 76.7136,
83.5776, 63.4512, 94.3424, 68.7528, 85.6616, 76.6392, 62.6384,
85.812, 85.4304, 77.1752, 86.4304, 87.8216, 86.0632, 74.2888,
99.0984, 80.0352, 75.4208, 92.3312, 83.1536, 106.1416, 71.5248,
89.3424, 82.6776, 103.372, 91.1288, 91.5968, 98.5616, 107.5088,
80.1768, 105.8144, 84.9592, 88.8, 117.5776, 97.308, 103.0216,
85.5944, 95.8176, 103.7344, 115.7344, 103.448, 90.9328, 100.3872,
110.244, 101.708, 93.5576, 120.1616, 127.8472, 105.008, 103.1976,
101.1176, 118.6816, 97.3432, 122.5496, 109.8656, 118.372, 102.2304,
111.1408, 134.772, 100.3328, 112.9824, 117.4968, 125.404, 120.8296,
109.776, 133.0096, 117.5936, 120.6416, 124.4664, 107.34, 140.492,
115.4296, 116.1792, 126.9176, 124.392, 132.6896, 135.548, 118.3992,
133.792, 130.0184, 117.0824, 127.1584, 138.6216, 144.3224, 129.2696,
141.4152, 129.4704, 135.8208, 146.7728, 124.0832, 145.552, 122.2392,
128.7864, 153.1584, 145.8, 140.184, 138.1696, 137.104, 158.516,
127.3536, 156.808, 143.0888, 153.828, 130.6528, 154.4384, 158.9936,
133.7904, 142.3168, 154.08, 148.172, 140.4768, 167.5376, 144.94,
168.4728, 152.9352, 139.4992, 164.3752, 155.1336, 163.3088, 148.0112,
162.2472, 153.2672, 184.5624, 151.836, 161.0088, 150.684, 163.8832,
149.044, 183.0856, 156.5376, 165.5448, 169.9264, 173.1112, 161.0856,
169.6472, 160.28, 177.5456, 156.5896, 178.94, 176.1152, 169.3512,
164.6888, 184.068, 176.5664, 169.8216, 179.6528, 181.3856, 168.344,
191.0944, 170.0144, 174.9592, 183.8384, 189.8776, 182.1984, 169.6808,
186.5944, 181.4176, 185.0136, 177.1888), .Tsp = c(1985, 2001,
12), class = c("tsd", "ts"), time.units = "Months", data.title = "Simulated Time Series A", response.units = "Sales")
simnsb.tsd <-
structure(c(50.7, 76.0432, 71.9192, 63.2144, 52.088, 59.3992,
59.3992, 51.5712, 56.7528, 67.3248, 75.7672, 75.6616, 78.5208,
67.6472, 78.1784, 79.0016, 68.4512, 71.092, 74.5408, 63.3224,
74.908, 78.8224, 81.6776, 88.8248, 91.8, 82.272, 85.1704, 76.0296,
78.3408, 73.912, 65.5856, 62.6944, 59.1192, 62.32, 52.7896, 55.4104,
55.1152, 70.6464, 76.4952, 70.624, 82.672, 71.636, 80.528, 93.1872,
98.1184, 87.0192, 89.2512, 82.4648, 75.568, 77.4232, 86.9784,
73.7736, 79.2928, 75.1248, 72.0928, 61.7952, 64.9568, 75.2248,
73.6568, 80.36, 75.4184, 77.6552, 87.3264, 77.5576, 66.0824,
73.2712, 86.132, 93.9864, 98.2344, 107.5128, 104.9608, 111.008,
114.888, 123.46, 123.4576, 115.504, 106.2992, 111.076, 111.8056,
103.3664, 105.284, 110.7552, 122.0984, 126.3032, 143.684, 147.9648,
146.2488, 156.8512, 172.1264, 149.0208, 139.9752, 143.1608, 152.0752,
140.5304, 132.2744, 128.9984, 129.8248, 135.6944, 125.4048, 126.7272,
131.8416, 122.8728, 124.0272, 128.9944, 135.8576, 134.1312, 120.3232,
134.5904, 135.4424, 138.5792, 152.6648, 164.1888, 154.9552, 152.576,
146.3136, 149.0056, 135.7696, 139.6464, 146.3352, 152.0728, 154.4848,
153.7768, 157.7368, 160.3656, 169.4456, 170.6152, 177.1016, 170.856,
166.496, 161.9304, 159.3296, 142.9192, 161.7584, 170.2592, 176.5496,
173.2952, 175.8568, 172.412, 176.4488, 178.5064, 180.2048, 180.4512,
174.2064, 173.1912, 169.428, 174.4896, 156.6488, 163.0528, 163.6648,
152.8768, 177.9256), .Tsp = c(1989, 2001.5, 12), class = c("tsd",
"ts"), time.units = "Months", data.title = "Simulated Time Series B", response.units = "Sales")
simnsc.tsd <-
structure(c(60, 52.692, 54.596, 59.5256, 55.5288, 61.5032, 56.3392,
46.3592, 61.8528, 58.9416, 49.4008, 53.2328, 51.6424, 62.1792,
67.04, 52.624, 48.6152, 47.2176, 48.4392, 53.4576, 48.5168, 46.5288,
49.312, 46.3552, 45.232, 62.5872, 36.8904, 46.5872, 42.924, 49.1024,
45.8304, 46.4432, 43.928, 35.7912, 38.0048, 46.3824, 33.9336,
51.6759, 43.1287, 50.7903, 48.7295, 31.968, 37.68, 42.3104, 37.9856,
42.216, 47.1375, 49.6007, 39.5895, 53.6879, 48.0231, 37.044,
42.2752, 37.6288, 55.2703, 37.5952, 37.0376, 29.1152, 41.1872,
40.316, 39.2128, 44.3744, 57.7831, 43.1599, 53.4743, 42.2335,
34.1335, 54.1111, 53.1191, 57.1407, 43.0351, 38.4527, 41.0871,
55.0215, 55.9695, 43.7023, 40.1895, 45.8335, 42.2415, 29.7991,
43.2607, 63.7079, 60.6159, 55.0135, 46.6311, 55.1127, 41.5559,
52.5055, 50.0711, 55.4431, 43.9735, 40.7143, 60.3863, 44.9191,
41.4015, 41.6983, 49.2023, 51.4319, 41.9079, 54.9175, 51.8111,
51.0527, 53.4191, 37.9591, 54.9511, 46.1807, 37.4599, 38.7775,
36.8695, 42.5591, 50.4071, 40.4063, 45.0983, 45.3167, 31.8991,
27.8575, 34.5791, 46.3015, 42.2711, 49.6863, 44.4567, 44.8775,
55.5503, 42.8335, 50.8855, 34.9247, 24.8111, 38.3695, 43.8695,
43.0535, 39.5231, 34.2271, 49.6431, 33.1967, 45.5047, 43.3935,
51.3215, 35.3743, 42.5127, 53.5063, 38.5967, 31.5135, 35.4935,
32.8655, 21.8423, 37.1799, 29.2199, 44.0927, 42.7279, 27.2271,
35.9023, 34.6359, 40.8447, 31.0559, 34.8031, 28.8703, 53.5327,
44.7687, 44.4775, 33.1615, 34.3447, 19.9887, 38.9743, 30.7119,
30.7567, 34.4831, 40.6943, 34.1799, 35.5271, 26.8071, 34.6527,
20.8424, 28.6824, 32.9976, 29.8488, 21.3376, 31.5056, 33.472,
27.9936, 31.6464, 36.332, 27.276, 40.2704, 31.4848, 26.944, 30.5824,
39.56, 40.1584, 27.5392, 31.1336, 28.8512, 29.4648, 21.5536), .Tsp = c(1991,
2007, 12), class = c("tsd", "ts"), time.units = "Months", data.title = "Simulated Time Series C", response.units = "Sales")
simnsd.tsd <-
structure(c(-0.146131649560547, -0.40805135172706, -0.212598217377834,
0.691567442593005, 0.037213563836051, -0.30567945610907, 0.472809915628741,
1.24777679572378, 1.61433889460656, 2.2076914078731, 1.54861812792555,
1.10807552571758, -0.25258832725345, -2.16664947082161, -3.87734878841269,
-4.88520973980768, -4.5958983235059, -2.58652863915728, -1.72909455370898,
-0.55128413661559, 0.45835807121279, 0.885738893223263, 0.48828011893061,
-2.17665094509437, -3.36001400451351, -4.71852038090286, -6.60993900909839,
-8.68634515718367, -9.20455936110097, -10.5093729752705, -10.1084346489623,
-9.78637733015576, -8.78135893998961, -8.6331202506167, -8.71626643338032,
-7.5540798955407, -6.08813193326512, -3.99634391230774, -3.11082684508189,
-2.24527031610019, -0.773498775861129, -0.467012046620587, 1.09969149602301,
1.01754629078033, 0.178903828155655, -0.0512626054951085, 0.652312648360227,
0.351145359137426, -0.920364322356393, -0.681816707781457, -0.356750145272943,
0.137614136312686, 2.76043514787456, 4.10535520847372, 3.47108219058772,
1.92524660177219, 1.71874859897304, 1.07529888317261, 0.607658864690287,
0.282000076769849, -0.787059035513717, -2.36623887567281, -0.514338387088032,
-0.523084693654151, -0.405812581769162, 0.123537690272854, 0.223154633614543,
-1.40077455032937, -1.53548391644516, 0.704624903687477, 3.28473379538973,
6.89280606570548, 9.59513800261219, 9.78464119059542, 11.1949495715917,
12.9122620194591, 14.0693673104574, 16.1410887039454, 16.6729480655876,
17.8305853315995, 18.6569729587475, 19.0529249080709, 20.4517683900861,
20.7977321865294, 21.8751716131423, 19.8795618023334, 18.96501767073,
20.12421517226, 19.7958634311412, 19.6667731280484, 18.7668140099497,
17.2811173522602, 15.647033899292, 13.34335416246, 13.0773511830117,
12.0573284114852, 10.669759974088, 10.9451555032819, 11.8957081365161,
11.2918779160853, 10.1714948788014, 11.4746449382348, 12.8083751939161,
14.1220177389164, 14.8683321992935, 13.9554914022743, 14.6829200671249,
16.1071931192348, 17.6778002879718, 18.9313241316071, 19.2401780408099,
18.2468749753551, 17.6299199690603, 16.5305709177278, 15.8242695271735,
16.2776926633683, 15.7196567845815, 17.4187371674885, 17.8340912871668,
18.4352713140166, 19.3826613218554, 19.9317349234002, 18.631050331872,
19.9757788933811, 20.7621788976566, 20.3745894020051, 18.5667625353196,
17.3064041827791, 17.0319920219497, 17.5364476610585, 16.5516557227803,
17.6866972786297, 17.8099096449452, 18.0288934166512, 17.3823280544906,
16.8152939723123, 15.5234414019537, 12.5616664302231, 12.1755472301251,
11.5194674572021, 9.96115584796112, 9.81780018228714, 9.63513489838108,
10.4253277231294, 11.3183012557811, 11.1185381011592, 9.96624824193003,
7.65402009851437, 5.50717653230445, 5.24473780643133, 6.19238904297789,
6.93599445670332, 7.11943292487865, 7.32866216953468, 7.63206036224071,
9.2371217907975, 11.2002640132826, 13.7193995015036, 16.7902601285557,
19.3305707698712, 20.2148504879183, 21.4979873120721, 22.4540113451675,
21.9500706670038, 23.139826723073, 24.0600167163064, 22.993557015492,
23.1703395097053, 22.271229872254, 20.3555202946095, 19.3162082072558,
18.8280072776551, 19.1379798079274, 20.6811708326733, 22.5319239750355,
23.6710759824025, 23.9532055037987, 24.1252213268192, 22.239061902273,
20.5159009859375, 19.9022061775137, 19.201843383787, 19.2928574104222,
18.7873443594132, 17.4554347114053, 15.3241021154879, 13.2726074301503,
10.9897900673701, 8.6630456772674, 7.6766110641536, 7.39442667864587,
6.85348368659498, 6.94330448539479, 8.68748575108522, 9.94340524029253,
11.3459716195421, 12.6222256940808, 13.0544924568852, 12.6999777591204,
12.8334306951078, 11.8724990219318, 10.464906108888, 10.9203908040049,
12.1364358789909, 13.8895013675006, 12.7661176412758, 10.6911708882386,
9.78735743982178, 9.31335775413553, 8.45786232564943, 7.44711802910808,
6.04579747020212, 5.24918354597637, 2.40656564642687, -0.179378309558706,
-1.89946431728122, -2.1740949216585, -2.9788355483864, -3.40873960850159,
-3.47319509131722, -4.22078060504106, -3.52335942239245, -3.69502863293236,
-3.64808657384866, -2.36937095246308, -0.840329837492076, -0.378219909555418,
-3.10864479966237, -6.03316851427255, -6.95425994827077, -7.49143334996644,
-8.38887938665743, -8.3903593882357, -9.87883629256287, -10.3729170590871,
-10.7783783141719, -9.56633022763078, -6.40959720435223, -3.42914315839025,
-0.389370699463315, 2.05319830479142, 3.58463976476811, 5.20457649888809,
5.14013882814276, 7.21812070091704, 8.41690239348246, 9.41220467937966,
11.1953881513122, 11.3897098392757, 11.1151261163115, 11.4741790672218,
11.660968868729, 11.5050230626503, 11.0423390042534, 9.86974519021487,
9.06481522600995, 9.08818271585431, 11.4780000077644, 11.1325307461615,
10.9317568629199, 11.586369778789, 12.3282559225299, 13.3353983775986,
11.9828333466833, 12.8139946788888, 11.8765343473898, 10.3204689500048,
10.5303825161897, 10.4050785583056, 11.1524598745156, 11.309929885696,
13.5136783249772, 16.2159111266934, 18.5109126926361, 20.0293064139364,
21.1396625635502, 21.1910423781234, 21.5135364561873, 20.3645875840674,
20.8965206468081, 20.369790974705, 20.7851612237783, 20.4633866415465,
18.3265763987316, 17.0015673827674, 14.957374512239, 14.2483422417441,
14.7763852635369, 15.288796344533, 17.251450116616, 17.9895774944476,
19.1101656270122, 19.2697396909095, 21.2425753449284, 24.5265534186901,
26.9671027375081, 26.2308543601836, 26.7394326838022, 28.1107228796784,
30.7589818455625), .Tsp = c(1994, 2018.91666666667, 12), class = c("tsd",
"ts"), time.units = "Months", data.title = "Simulated Time Series C", response.units = "Sales")
simnse.tsd <-
structure(c(1.15934756631832, 3.38609522274297, 4.85885018577384,
6.73708128190157, 8.35605697438066, 11.2679257856272, 13.1199074587306,
12.9601623657429, 13.5282270207667, 14.4736206452486, 15.2834581374061,
17.3817622435523, 19.0719077956618, 19.2904173365323, 19.9517039892957,
21.9014813442401, 24.8159741014272, 27.859871255349, 31.3063873333031,
36.0982682468067, 41.9374301825314, 47.5415549595293, 53.8471509661912,
58.865350739683, 63.212444745095, 67.6778742949338, 72.564090508427,
77.6346182515617, 83.6446017732025, 91.3446581734734, 99.5817820053229,
108.121311286133, 117.371755305588, 129.284588193945, 143.537482327197,
158.989229716429, 174.244178080543, 188.319757754512, 202.267018509739,
216.325339121685, 229.181578429578, 240.164393885506, 248.312357403913,
253.959791506654, 262.037538470241, 271.447238459298, 280.596573823286,
289.963202706653, 297.854478998795, 306.42389510437, 316.279681813703,
325.099130054084, 331.94531359204, 337.790979219099, 344.680764757053,
350.75833001463, 353.185958250029, 351.412603353244, 345.637611255801,
338.697690115776, 333.536554725558, 330.390875271741, 327.631963089427,
324.530184163038, 321.14768574402, 317.896711823594, 315.440752828344,
313.878945333552, 314.434903778633, 315.530035397516, 317.162324322756,
318.212253321307, 319.97924750982, 323.839546067664, 328.109276379264,
332.35789906264, 336.382114127992, 338.60352049303, 340.021286946527,
341.075184168402, 341.151863778171, 340.532042334988, 339.202880302172,
336.179667813423, 332.7988320034, 331.392384752076, 332.339065278337,
333.511921144199, 333.042418539104, 329.82263742856, 324.502157314632,
317.218457742917, 308.614046721858, 300.269641771381, 292.205694713026,
284.590658653918, 276.860231068967, 268.621713663158, 258.97295113542,
248.366405163613, 237.924716009455, 228.775460460235, 221.493705814615,
215.722042460485, 212.619375938236, 213.46907739555, 217.652872756144,
222.874548528934, 227.287772664642, 231.372889687164, 235.64699868111,
242.057215481986, 250.593861050147, 260.886017782589, 272.757110119288,
283.96975750786, 294.01217635741, 303.283539065416, 310.791511931845,
317.435951824717, 323.629143634212, 329.734677310266, 335.851131314382,
339.008363504628, 339.976798826468, 341.757603219069, 343.989021927745,
345.978968502364, 345.56885637898, 342.881405666602, 339.688754030366,
336.776552044236, 333.635903863514, 330.16101029689, 328.135888227904,
328.875259282977, 330.030984868936, 330.518907703481, 330.992893243753,
331.653571281883, 330.89837825705, 328.518777406066, 326.566337830621,
327.216713941328, 329.839397557362, 332.574121716527, 333.801274797385,
335.068061853743, 338.121335437403, 341.93387856777, 346.193069987256,
350.00289409039, 353.316789164805, 355.337196737708, 355.976078199068,
355.341859608681, 355.83990460394, 357.209895649336, 358.400328016547,
359.742471432725, 360.919290500296, 362.11366497492, 363.717630855972,
365.279304288756, 367.153328956652, 367.975110452866, 368.462041988786,
370.039059981811, 369.696581181752, 367.528259927413, 366.476850997768,
366.118442180136, 365.667008322267, 365.054400617018, 364.30026595862,
361.360440550029, 356.280717912117, 352.107068191527, 348.669419079618,
346.056512301138, 342.346033959863, 338.760861229347, 336.290294657575,
334.081532928035, 333.307227726943, 333.95733226893, 334.918932025797,
335.157747823543, 336.085313445857, 337.980087925769, 338.045552897026,
336.944150726109, 335.085980843201, 333.207552604391, 331.379853629786,
328.528161946577, 327.826753263731, 331.096003272403, 336.230840247394,
342.265539269808, 348.539264085617, 356.457998301027, 366.010420547727,
376.661639391445, 387.810702350517, 399.297050731273, 412.288165368599,
424.863185873964, 434.385998812226, 443.256325680364, 451.827677077422,
459.751031527516, 466.294627726884, 471.361692744446, 475.093992384057,
478.728950501665, 483.181733008334, 489.561763331778, 497.842516273403,
505.798284462009, 513.960691926947, 523.479466302016, 533.940460706835,
546.440250738755, 559.860676537479, 573.21885790343, 586.708343792685,
600.475826247867, 614.552317404551, 629.382811643586, 646.159165093895,
663.490282610544, 680.062675545449, 697.315079039728, 715.745742624348,
735.84761140456, 755.604331258127, 774.663216781941, 794.439235239723,
814.419840743039, 833.821130664276, 852.606308725425, 872.095012283013,
891.589137422269, 908.580298379773, 924.32066967557, 939.905201732118,
954.237904956783, 967.0130342736, 979.76346461738, 991.839969630798,
1003.46326150684, 1016.19390208884, 1029.12545314433, 1042.24998748231,
1055.88729701731, 1069.57278020164, 1082.74076138982, 1095.41989704029,
1108.33123706031, 1120.65048432446, 1132.52508729459, 1143.85519310847,
1154.61635164973, 1165.65680533425, 1176.94155465649, 1188.04367764438,
1199.04496333681, 1212.03600300023, 1226.43811684844, 1239.37233877263,
1250.42708015385, 1261.1068719113, 1273.32618856379, 1286.52052923319,
1300.17981713778, 1313.61328810934, 1327.0324488962, 1340.01435555342,
1351.35614313644, 1361.58184366386, 1371.75349854771, 1381.06894405538,
1390.69610872959, 1402.73843261903, 1416.10158252147, 1431.05501729071,
1447.78561376111, 1463.96646747096, 1479.60766048617, 1496.34736407095,
1512.88990995342, 1528.88478194613, 1544.36401845001, 1559.70265814244,
1576.00718565649, 1593.88427583441, 1613.04757955542, 1632.40254137247,
1653.07578418788), .Tsp = c(1985, 2009.91666666667, 12), class = c("tsd",
"ts"), time.units = "Months", data.title = "Simulated Time Series E", response.units = "Sales")
simnsf.tsd <-
structure(c(0.145321311729639, 1.08147715140969, 0.95571413609106,
-0.665294218274026, -1.35478481505036, 0.375633838535074, 0.851821490822018,
-0.816263197966616, 0.777951487772364, -0.216178676087518, 1.32475520314266,
-0.000628636273401848, 0.22392572286804, -0.597065407450284,
1.67121456821894, -0.208071250853374, -0.558445550552278, 0.802793571244112,
0.513500275005644, -1.3160343441573, -0.328787298593256, -0.129125448518866,
-1.74397629760372, 2.20756209226172, 2.11000435621017, 1.1544867893895,
-0.00645220587326565, 0.255542044053189, -1.31025749615825, 0.32837202907182,
0.723230848810399, -0.433320520101033, 1.19398008494251, -0.157809623817692,
-1.15034297143656, 0.0785571356154024, 0.28640292967851, 0.530546506980045,
-1.32085007211697, -0.998525715429613, -0.137491663831701, -0.441344878367641,
1.82261671495727, -0.404875945826693, -1.14326449496035, 0.115853549587592,
-0.323219655076241, -0.0830790222106786, 0.999205349875565, 0.790399521764064,
-0.182075615244799, -1.12521093109578, -1.18157672725911, 0.756007369135095,
-0.349459978168558, -1.00738522164681, -0.442605443079102, 1.18944733858484,
0.606075067808832, -1.57838701048862, 0.501140307129434, 1.71070287158057,
0.712309135095796, -1.61498794722791, 0.0209320672565967, -0.450074123916808,
-0.154896456562797, -0.493406138432542, 1.10089496062559, 0.953416901510638,
-1.25396060692505, -0.666520598326744, 2.09597565831916, 0.372675015612771,
-0.275091333145222, 0.50388026104381, 0.152819729395416, 0.780600059370779,
0.0550242968387934, 0.922503087864248, -1.43512243748161, -0.35742990162244,
0.0475288450502609, -0.373932151713108, 1.43564104681612, -1.10268317689917,
-0.231142430258905, 0.786644021824513, -1.03413271218313, -1.42479954266257,
0.242320789307661, 1.56208081301305, -1.13777918643685, 1.85876194528305,
-1.09075880104085, 0.322568479714686, 0.424859558046259, -1.62583886900488,
0.0265326747792367, 1.10319090865809, 0.612721605199385, -0.688291314926541,
-0.817296276388316, -0.398113502266539, 0.0431750989068307, 0.219124941333595,
0.239343867636041, 0.540289993219851, 1.00806195278777, -0.283303441032395,
0.439873860015443, -0.192549498864093, 0.0492849245736311, 0.0940926702120575,
1.28458701692147, -1.09258686936365, 1.5997874402766, 0.0877057086766382,
-0.775286021470603, -1.39287433757625, 1.09717855723687, 0.789928258164623,
0.115656007549038, -1.27868461485697, 0.182058699461967, -0.113665876728097,
-0.334650178347047, -0.145289943027902, -1.65011877699445, -0.963532707042847,
1.3040068203828, 1.05660477167204, -0.171428891775892, -0.450132484829133,
-0.146727397541674, 0.166992159461815, 1.56055656499943, 0.129895802152072,
-1.05552916756099, 0.0410393135690807, -0.84347804164563, 0.338002805697672,
1.01153988477351, 0.207410019812254, -0.843664989081871, -0.330635904569987,
0.780358021557519, 2.07054230564521, -1.78679620450408, -0.47557248170715,
-0.43159464820393, 0.841777143872281, -0.518506272862936, -0.540887519192136,
0.51394007173509, -1.15370777944516, 0.225669114625866, -0.4302074738609,
1.14530374976583, 0.557658495666803, -1.17856537950253, 0.246995277340058,
-0.0108416346215488, 1.02768531041868, -0.312896501104083, -0.0293410833226261,
1.33405354568259, 0.0315364283599865, 1.19310034458678, 0.436352720566431,
0.453358009092453, 0.308918314127372, 1.0014297654589, -1.28717802821788,
-0.227029734952835, 0.308519177087932, -0.313066175273783, 2.21988750805776,
0.805139381789046, 1.15239358920607, -0.0108740307626512, 0.126864329910697,
0.257367697847648, -0.90243680744241, 0.618913983639886, -0.452416223341283,
0.648795269455023, 1.24821180264378, -1.21600342275268, -0.307877042289572,
-1.63803760717317, -1.22264358740959, 0.193584081456031, -0.231301255879227,
1.3937700145867, 0.0945545937028442, -1.51429769426471, 1.41565078936245,
0.534609739278479, -0.810123208854501, 0.202470613634549, -1.11038544288206,
-0.0437097263432526, 0.653196104448309, 2.42219960745574, 0.412632543458425,
0.34437681265171, 1.63564223624975, -0.255232080535661, -0.375204233749607,
0.371997465248226, 0.305848093881876, -1.18955394863951, -0.0705700660658803,
1.45626852441745, -0.268535699064325, 0.617408568036601, -0.61210021532781,
0.181051369981115, 1.38222953018286, 0.0684999426190955, 0.683348329164427,
0.791801512133181, -0.75717433643234, 0.0945218655883828, 0.111112574923555,
1.18072414315889, -1.38417237112264, 0.613984591586529, -0.264121263951476,
1.50654173157513, 0.0657078802733391, 0.427942097819508, 1.92435315469853,
0.93251106059829, 0.750810540532541, 1.19829065065922, 0.982572002381148,
-1.22871396881756, -0.0440836683210478, -0.518656189085296, -1.96302890588527,
-1.95841158140806, 0.254568096970847, -0.642590036281025, -1.72471361029022,
-0.712537601441807, 1.68188068095293, -0.160313498103141, -0.608085837215222,
0.980938749410171, -0.151436966694562, -0.962286286347449, -0.17274606541013,
0.762810299996445, -0.473938425968372, 0.790744460707272, 0.491207608416103,
0.189163785977594, -1.15925035720159, 0.409506582947946, 0.571634126826682,
-0.169812755474598, -1.45206768877095, 0.0829771020455928, 0.84820206889009,
0.358684449090031, 1.00545128878242, -0.161852905043049, -0.0185780027168274,
1.1003997574204, 0.0044433118603377, 0.51310891082916, -0.748381476302588,
-0.358077222633639, 1.08516183138803, -2.58411125559337, 0.000454650927733463,
-1.83031637230653, -0.562711457511278, 1.71036701771376, 1.066267733619,
0.588474767290676, -0.379899316267854, 1.19872722442205, -1.07157512416673,
-0.394429128729589, 0.276574677807522, -1.14315214551273, -0.254668161638425,
-0.433197163242312, -0.175244347216322, -1.39095861776584, 0.562229252911304,
1.12163716492794, -1.18899925270752, 0.867179959542321, 0.196563596006109,
-0.403938156094324, -1.10734026448595), .Tsp = c(1991, 2015.91666666667,
12), class = c("tsd", "ts"), time.units = "Months", data.title = "Simulated Time Series F", response.units = "Sales")
simsta04.tsd <-
structure(c(-1.7674, -1.1474, -3.8516, 3.2192, 1.9691, -9.522,
5.4356, 1.6375, -0.9568, 10.3978, -4.0845, -1.4745, -1.8195,
-9.2717, 0.3449, 8.0307, 2.6692, -2.3518, -0.9569, -14.6369,
15.3598, 1.8987, -2.6081, -5.705, -0.8346, 9.7834, -0.1643, -12.8384,
4.0617, 4.1687, 9.8813, 0.3602, -7.4134, 0.9831, -7.4019, -2.1492,
2.8407, 0.218, 0.6179, 0.1559, -0.5128, -0.0729, -5.865, 20.8604,
-4.7484, -3.2736, -8.0937, 8.1119, 0.4221, 4.7949, -12.7489,
-2.8799, 6.3491, 6.8736, -6.4488, 0.1577, -1.0541, -0.2337, -5.249,
12.0596, -4.8121, 4.8392, -8.1427, 6.2231, -6.8867, 2.5209, 5.9394,
-11.3916, 6.8227, 0.8028, -1.8708, -1.2621, 2.4791, 4.7385, -8.3789,
4.6964, -7.6919, 5.4443, -0.8282, 8.1315, -9.4022, 6.0988, 1.6006,
-9.7468, 4.1988, 1.9433, 6.2895, -8.1661, -4.4758, 3.7814, 7.6828,
-10.7915, -3.9504, 3.9794, 9.7873, -0.7255, -8.187, -0.534, 6.6723,
-2.008, 3.915, -3.7676, 7.4697, -7.1168, -1.9812, -1.1677, -5.1263,
12.5333, -6.6501, 0.8819, 4.1414, -6.9103, 16.6963, -20.44, 7.5918,
-3.2377, 4.4088, -7.8924, -3.893, 15.8235, -4.5997, 8.8287, -10.8687,
9.1084, 1.6465, -9.4107, -3.8286, 0.0144, 6.6854, 1.8182, -4.2032,
2.0015, -12.3823, 4.5066, -1.3608, 9.5921, -8.8937, -2.2918,
15.893, -7.6287, 5.877, -8.4608, 6.315, -7.5137, -3.7823, 4.1783,
2.7246, 3.6473, 7.4792, -12.1333, -0.4964, 2.1266, -8.9257, 1.9082,
10.0964, 0.2593, -7.0212, 9.169, -9.4903, 1.9428, 0.2308, -1.9223,
5.8129, 1.637, -11.0693, 9.6256, -1.3621, -1.6355, 0.7418, 2.3663,
-4.3211, -0.7899, 5.8895, -4.0838, 1.1928, 1.3214, -1.338, -8.5461,
8.999, 5.4083, -2.5902, 1.7206, 0.4793, -6.7568, -0.4538, 6.52,
-3.922, 0.1612, -3.4535, 3.7184, -4.198, 3.5596, 0.9489, -15.2556,
17.7206, 0.8985, -2.6459, -4.9107, -5.5344, 10.2003), .Tsp = c(1975,
1991.58333333333, 12), class = c("tsd", "ts"), time.units = "Months", data.title = "Simulated Time Series #4", response.units = "Sales")
simsta05.tsd <-
structure(c(3.9224, 6.8655, 8.2334, 12.8271, 13.5538, 8.9777,
1.0583, -2.4241, 1.7453, -1.4835, -12.9371, -10.0433, -9.967,
-0.0601, 3.3771, -1.4785, -0.8594, -3.6066, -5.1817, -8.4907,
-3.0208, 6.7099, 4.8914, 0.3471, -0.8526, -5.59, -4.7112, -5.3509,
6.9314, 6.7017, -7.1097, -0.783, 3.3048, 2.9805, 4.2633, 9.04,
11.4287, 6.3295, 2.6628, 3.295, 9.6518, 11.519, 5.531, 4.8461,
-4.4899, -10.4928, -11.002, -15.2548, -8.7725, 1.9396, 6.381,
6.2315, 4.7149, -6.851, -11.8151, -9.2682, -11.9291, -2.8438,
3.6022, 8.8603, 11.0818, 0.169, -3.4874, 2.4187, 3.2212, -3.9171,
-4.5163, 1.8965, -1.3498, -4.519, -2.2298, -0.0299, 5.7174, 5.1339,
2.3146, 10.0041, 17.459, 20.9994, 7.7468, -1.95, 1.5985, -0.2769,
3.384, -1.6527, -1.9528, 5.638, 2.2313, 0.8225, 8.4037, 2.7646,
0.481, 2.09, 3.954, 6.311, 5.5129, 8.4516, 8.1719, 6.1726, 4.8945,
-4.1036), .Tsp = c(1995, 2003.25, 12), class = c("tsd", "ts"), time.units = "Months", data.title = "Simulated Time Series #5", response.units = "Sales")
simsta06.tsd <-
structure(c(-17.5453, -16.7145, -11.1183, -10.5326, -12.6435,
-13.1911, -14.3396, -13.6014, -16.2087, -20.7392, -24.6198, -23.07,
-22.0925, -20.4542, -11.311, -4.6595, -6.2853, -11.7064, -11.3627,
-9.6781, -11.756, -15.2965, -10.9622, -3.0984, -6.3213, -8.5386,
-2.9085, -2.1933, -8.0181, -12.2948, -9.7439, -1.9549, -2.3808,
-7.525, -3.2487, 5.5608, 7.1488, 7.9443, 15.0668, 19.3905, 20.9623,
18.5867, 17.4125, 15.9692, 14.7597, 9.9033, 6.173, 4.7391, 4.5979,
5.9663, 3.2967, 1.2, -0.7649, 0.7292, -0.7244, -4.6094, -4.2354,
0.2971, 6.7877, 7.3673, 6.146, 5.4048, 2.9279, 2.2117, 0.5112,
-3.0081, -5.7744, -10.6538, -13.0511, -12.9905, -11.4297, -6.3326,
-1.8751, -4.4222, -8.5463, -10.2359, -7.5227, -11.5376, -19.7016,
-23.3872, -19.7561, -14.3019, -9.7804, -5.8372, -2.4125, -0.6972,
-3.2334, -0.1948, 0.2187, -2.4631, -2.2423, -5.1779, -10.8, -11.2721,
-11.4789, -14.0949, -13.4875, -14.5202, -10.916, -7.7752, -2.9818,
2.2396, 3.5822, 2.8997, 3.7824, 6.087, 8.9712, 10.0355, 9.2089,
0.5566, -2.5343, -7.6784, -13.9233, -13.0294, -12.6608, -14.0495,
-13.0325, -11.4763, -10.5995, -7.954, -5.6485, -4.8399, -3.017,
-2.3458, -2.3212, -0.044, 0.6889, -2.5866, -0.9177, -2.948, -7.4716,
-9.9214, -11.3497, -11.2012, -14.4494, -18.2097, -25.6323, -28.6962,
-28.5641, -35.2931, -40.1144, -39.9758, -39.0708, -33.4052, -28.8475,
-25.8654, -23.0287, -17.753, -11.9094, -11.1638, -9.8231, -3.5873,
3.0328, 8.3496, 9.1282, 6.8619, 6.6807, 4.0775, 2.521, 7.1171,
16.3632, 15.0369, 9.9544, 8.1634, 7.3754, 14.0644, 16.7149, 10.9549,
4.0347, -4.8332, -6.6078, -2.3316, 2.2085, 6.996, 10.6065, 12.1581,
9.9246, 11.7979, 17.2629, 20.3846, 19.5559, 14.5793, 12.001,
12.5199, 10.3157, 2.9533, -2.5438, 0.1818, 3.9688, 7.4793, 8.7655,
7.8896, 14.5412, 15.6018, 10.9125, 8.8748, 1.9497, -1.0831, 6.0675,
9.0867), .Tsp = c(1996, 2012.58333333333, 12), class = c("tsd",
"ts"), time.units = "Months", data.title = "Simulated Time Series #6", response.units = "Sales")
simsta07.tsd <-
structure(c(-23.7814, -7.3864, 10.195, 27.0184, 43.5026, 50.5045,
59.286, 68.715, 74.4184, 73.2678, 67.1455, 54.7752, 43.5609,
32.7782, 22.3298, 10.2845, -4.1767, -17.8887, -29.1068, -40.5666,
-47.2244, -48.1217, -49.6353, -44.4439, -39.5408, -38.5003, -37.2363,
-28.851, -21.9414, -15.8363, -7.2182, 4.7067, 18.6156, 28.6897,
32.6451, 32.1901, 36.2007, 34.2576, 28.2884, 19.7637, 10.2475,
0.5448, -10.5041, -14.5669, -17.9687, -16.5216, -13.8232, -15.9954,
-15.3703, -11.5513, -8.9912, -6.4458, -11.2976, -15.8529, -15.7624,
-15.5985, -15.0171, -9.2277, -2.0962, 6.3442, 15.0074, 25.5449,
34.1263, 43.1578, 47.2959, 44.6759, 39.4711, 28.0272, 19.0213,
13.8771, 8.3362, 2.9911, 1.7387, 2.7757, 4.8953, 4.9433, 2.9404,
0.1676, -8.3979, -9.7007, -11.156, -13.119, -15.0172, -10.2186,
-2.5184, 3.5999, 11.0659, 13.303, 18.3212, 18.505, 19.2596, 15.0777,
4.7899, -3.7854, -10.5577, -13.4035, -8.8045, -1.3938, 3.4482,
8.6698, 9.6948, 13.6172, 19.6686, 24.8103, 29.8496, 31.6873,
30.715, 23.1711, 13.5291, 1.2321, -7.3396, -13.5941, -17.1348,
-18.6093, -18.2971, -12.7818, -7.034, 2.4091, 8.8171, 10.835,
12.6964, 19.7745, 24.866, 26.2931, 28.2655, 28.3088, 26.9722,
23.1536, 20.9326, 17.9307, 7.6442, -1.1303, -11.6653, -21.8203,
-32.8887, -43.0766, -43.7704, -41.7031, -34.6792, -24.4548, -15.3355,
-7.3379, -1.5907, 7.8431, 16.5741, 24.0084, 32.6406, 46.2314,
58.9543, 73.4438), .Tsp = c(1979, 1991.41666666667, 12), class = c("tsd",
"ts"), time.units = "Months", data.title = "Simulated Time Series #7", response.units = "Sales")
simsta08.tsd <-
structure(c(-3.0804, -2.4774, -1.3018, 0.1765, -0.6499, -0.5624,
0.5036, -0.0566, -1.2906, -2.2584, -2.1577, -2.4276, -0.9809,
-2.2098, -2.2252, -0.8189, -1.0615, -1.4051, 0.0847, -1.276,
-1.6778, -1.9472, -2.7531, -3.0375, -1.759, -2.0338, -0.8037,
-1.0051, -0.364, 0.7643, 1.2132, 1.7476, 1.435, 2.7138, 2.4737,
2.5981, 0.7442, 0.1006, 0.922, -0.4965, 0.9705, -0.0535, -1.5484,
-2.0773, -0.6024, -0.7939, 0.1419, 1.0915, 0.9471, -0.1598, 1.5783,
0.9759, 1.5844, 2.0509, 3.4256, 3.1179, 1.9219, 2.2054, 1.455,
2.1602, 1.9681, 0.8467, 2.1553, 3.6772, 2.8661, 1.346, 0.4517,
0.0082, -1.0641, -0.6576, -1.326, -1.7235, -2.7075, -2.6197,
-1.538, -0.2999, -0.8095, -0.8132, 0.3292, 0.177, -0.4194, -1.7498,
-2.1879, -4.273, -4.7206, -4.4186, -5.6564, -7.4783, -4.5026,
-3.2844, -3.5951, -4.6219, -3.0913, -1.9718, -1.4748, -1.4906,
-2.1368, -0.7631, -0.8409, -1.3927, -0.1841, -0.2409, -0.7743,
-1.5447, -1.2414, 0.5721, -1.1238, -1.1428, -1.4474, -3.1206,
-4.4736, -3.2319, -2.847, -1.9767, -2.2257, -0.4837, -0.8808,
-1.6294, -2.2591, -2.4731, -2.2971, -2.7046, -2.9457, -3.9932,
-4.0519, -4.7752, -3.907, -3.2745, -2.6163, -2.2037, -0.0649,
-2.3323, -3.3074, -4.0062, -3.5119, -3.7446, -3.2265, -3.6436,
-3.8133, -3.9381, -3.8814, -3.0133, -2.7989, -2.241, -2.7862,
-0.4686, -1.1816, -1.1706, 0.2654, -2.7782), .Tsp = c(1989, 2001.41666666667,
12), class = c("tsd", "ts"), time.units = "Months", data.title = "Simulated Time Series #8", response.units = "Sales")
simsta09.tsd <-
structure(c(4.3156, -4.7453, 2.3208, -3.1083, 2.6742, -2.151,
2.0488, -1.5053, 1.4821, -2.465, 1.3248, -1.6869, 0.7568, -0.2313,
0.8757, 0.0041, 0.8091, -1.5225, 2.1307, 0.3076, 0.2713, 1.9333,
-1.3585, 0.197, -0.4964, -0.4834, -0.3429, 2.4838, -2.1294, 1.3038,
-2.4852, 0.7948, -1.7882, 1.8199, -1.924, 2.6595, -3.0906, 3.4746,
-2.5382, 2.6105, -3.5576, 4.6353, -5.6168, 3.4699, -2.8349, 2.4382,
-1.529, -0.5637, 1.374, -0.0757, 1.4964, -0.5754, -0.8648, -0.4966,
0.5803, -0.9824, -0.0701, -0.109, 1.1031, -0.2983, 1.3815, -2.1824,
2.0809, -2.241, 1.8069, 0.1048, 1.6935, -1.9835, 0.1558, -0.2769,
1.029, -1.7117, 1.7899, -0.6987, -0.2498, 0.4922, -1.0777, 0.7098,
-2.0097, 0.8493, -1.0716, -0.8353, -0.0457, 1.4627, 0.3452, -0.9717,
0.9081, -0.3227, -0.0198, 1.0562, -1.706, 2.5205, -3.8075, 3.2799,
-4.1078, 2.749, -5.3513, 4.539, -5.5346, 4.7357, -5.2706, 4.3944,
-3.1592, 1.6424, -1.7841, 1.8763, -0.9002, 0.7896, 0.1893, -1.8693,
1.0639, -0.3056, 1.7933, -2.7064, 2.4642, -2.29, 2.1775, -1.8545,
1.8692, -1.9562, 1.58, -1.8171, 0.8175, 0.832, -0.0933, -1.0321,
-0.2648, 2.0174, -2.203, 2.1155, -1.2519, 2.5781, -2.1431, 1.123,
-1.5558, 0.8031, -0.0031, -1.2022, 2.3163, -3.028, 1.9866, -2.2685,
1.8128, -2.4435, 3.4632, -2.5085, 3.0047, -2.1132, 3.398, -3.9723
), .Tsp = c(1986, 1998.41666666667, 12), class = c("tsd", "ts"
), time.units = "Months", data.title = "Simulated Time Series #9", response.units = "Sales")
simsta11.tsd <-
structure(c(2.1102, -0.5571, 0.635, -0.75, -2.4973, 5.4865, -7.0362,
4.9175, -3.5334, 4.2431, -2.7678, 1.074, -0.9709, 1.5055, -2.8513,
2.2936, -0.3202, -1.0711, 0.5841, 2.1127, -3.7291, 1.9311, -0.128,
0.5305, -1.583, 0.7924, -0.1918, 0.0085, 2.1953, -1.9445, -1.649,
2.1706, 0.4454, -2.8742, 3.1214, -1.8966, 0.9695, 0.1709, -0.8972,
1.1559, -1.9679, 1.6212, -0.559, 0.6397, -0.6394, -0.5305, 1.0446,
0.9287, -2.9556, 3.3709, -1.9157, 0.3596, -1.0641, 2.5434, -2.0064,
1.4312, -2.7505, 3.9671, -1.1317, -1.8948, 1.7624, -0.0152, -2.1331,
3.7055, -3.8856, 1.6019, 1.6103, -0.4813, -1.4925, 0.886, 0.1818,
-1.5062, 2.7065, -3.3325, 4.0274, -4.9576, 4.6384, -1.8609, -1.0445,
-0.4616, 2.0928, -0.1439, -2.5631, 3.6183, -2.3779, -0.2637,
1.0051, -1.0187, 1.2407, 0.2599, -3.044, 2.7888, -0.9741, 0.4698,
-2.2521, 3.6648, -0.0828, -4.2289, 2.2017, 1.0959, -1.8831, 2.0317,
-2.0991, 1.9311, -1.4104, 1.4819, -1.0086, -1.7181, 4.1624, -2.7856,
0.1815, 1.0224, -2.2749, 1.2844, 2.2422, -1.611, -0.5704, -1.6902,
3.6068, -2.9192, 2.8907, -3.2291, 1.1712, 1.7593, -2.2144, 0.6104,
-0.8061, 2.4485, -2.6462, 0.2335, 1.6957, -1.2649, -0.8024, 2.8081,
-2.8399, 1.1678, 0.4815, -2.7355, 3.3329, -1.6416, 0.2328, 1.1953,
-1.8775, 1.7808, -1.559, 1.7559, -1.8001, -0.3284, 1.5584, 0.3641,
-2.5016, 3.0297, -2.4005, 3.2001, -2.986, 1.1168, -0.2584, 0.4066,
-0.6951, -0.3433, 2.8242, -3.8109, 3.3922, -1.2639, -1.9505,
3.0152, -0.3407, -1.796, 0.8822, -0.7848, 0.9519, -0.3282, 0.5494,
1.1819, -4.5214, 2.7137, -0.7592, 2.2706, -2.7898, 2.6661, -1.9915,
-1.101, 1.9801, -0.672, -0.8329, 1.5474, -1.6157, 0.7611, 2.1939,
-2.0414, -1.119, 1.1893, -0.5716, 1.7378, -0.8087, -1.0009, 0.0728,
1.9529, -2.2015, 1.0395), .Tsp = c(1988, 2004.58333333333, 12
), class = c("tsd", "ts"), time.units = "Months", data.title = "Simulated Time Series #11", response.units = "Sales")
simsta13.tsd <-
structure(c(3.3937, 1.6444, 2.7582, 1.389, 2.5195, 2.1712, 2.1593,
2.9381, 1.6889, 3.4285, 2.1186, 3.9256, 3.3147, 1.0789, 2.978,
1.5067, 2.6848, 2.0754, 2.5234, 4.0964, 2.4909, 2.5986, 2.8088,
1.0751, 2.1762, 2.1695, 1.4662, 0.3558, -0.4432, 0.5548, 0.8313,
1.1096, 1.5712, 2.2629, 3.2794, 1.2891, 1.5055, 2.6024, 3.2392,
4.1706, 3.7653, 3.3652, 4.9996, 2.89, 4.8105, 2.056, 5.0861,
1.1552, 2.9141, 3.2826, 3.0213, 0.8775, 1.4455, 0.7015, 1.0423,
1.3519, 1.4415, 1.2564, 0.5438, 0.9447, -1.2003, 2.4329, 0.4304,
3.8151, 0.2249, 2.4118, 1.5269, 1.8376, 1.6721, -0.1487, 1.5018,
0.9376, 1.9472, 3.0854, 2.4668, 2.3503, 2.0251, 1.7381, 3.018,
2.7822, 1.9238, 1.8895, 1.7538, 2.3245, 2.3664, 3.7192, 2.6484,
1.5333, 0.3966, 0.2927, 0.8374, 1.3763, 1.1246, 0.0504, 0.9997,
0.3655, 1.8141, 1.17, 0.3229, 0.7824, 0.6779, 1.2515, 1.1254,
1.7595, 2.0066, 2.3592, 2.7032, 3.1119, 3.0187, 2.5666, 4.2454,
1.7164, 3.6691, 0.5461, 2.5871, 1.8199, 2.281, 2.9585, 1.587,
2.6567, 2.9269, 2.6184, 2.3742, 4.3296, 2.853, 3.5451, 2.6896,
2.8955, 1.5769, 1.4965, 3.9599, 2.8346, 3.2264, 3.7763, 4.7593,
3.9637, 5.3638, 3.3752, 3.7883, 3.5214, 1.5473, 4.0939, 2.0752,
1.1586, 0.2597, 0.4662, 2.2565, 0.673, 0.9604, -0.2983, -1.406,
0.2764, -0.323, 0.0372, -0.8857, 1.1652, -1.0328, 1.2959, 0.2522,
-0.2229, -1.8862, -1.0868, -1.3154, -1.5424, -0.9829, -2.3632,
-0.7286, -1.2522, 0.3421, 0.409, -0.0848, 0.6156, -1.5526, -0.8554,
-1.6013, 0.5125, -0.7539, 0.027, -0.317, 0.0055, 0.5395, 0.8184,
1.618, 1.7422, 3.5182, 2.6877, 3.9659, 4.8456, 4.2461, 5.6624,
5.5016, 6.088, 6.1274, 7.1315, 6.6674, 6.7147, 5.6796, 7.013,
5.875, 5.6929), .Tsp = c(1990, 2006.58333333333, 12), class = c("tsd",
"ts"), time.units = "Months", data.title = "Simulated Time Series #13", response.units = "Sales")
simsta15.tsd <-
structure(c(-0.5316, -1.2402, -1.3355, 0.086, 0.4229, 0.1548,
0.1509, 2.6891, 0.4805, -0.3916, -0.1467, -0.5698, -0.5443, 0.3873,
-1.0004, 1.4548, -0.2775, -0.0748, -1.0204, -0.3834, 2.9557,
-0.6616, 0.8603, -1.2585, -1.4331, -1.6309, -1.6155, -1.1241,
-0.121, -0.3579, -1.5482, -0.6803, 0.3556, 0.7712, -0.3354, -0.9318,
0.4982, 2.1172, -1.9404, -1.3303, -1.1807, 1.4626, -0.4338, 0.3387,
-0.7575, -2.2268, -1.2592, 0.4163, 1.9187, 1.1813, 2.0022, 0.6824,
1.5057, 0.6381, 0.9189, 0.9642, 2.5665, 1.1721, 1.3912, 1.7497,
-0.5785, 0.6058, -0.7032, -1.3807, -0.4635, -0.5449, 1.5497,
1.4986, 0.0507, -0.7457, -0.1068, -1.0281, -0.4915, 0.8652, -1.2224,
-0.4274, -0.0291, -0.4731, -0.9945, 0.7132, -0.4472, 0.4895,
0.8517, -0.1058, -1.6394, -0.5922, -0.6321, -0.2226, -0.1413,
-0.7285, 1.5696, -1.7953, -2.0643, -0.4854, -2.5153, -2.6083,
-2.1708, -0.4025, -1.2726, -1.7559, 0.0603, -1.1515, -1.6446,
0.2292, 0.8184, 0.2596, 1.0864, -0.2291, 0.7158, -0.8839, 0.4645,
1.6493, -0.0018, 0.2859, 1.0704, 0.64, -1.0801, 0.5569, 1.3258,
0.4878, -0.0805, -0.7043, -0.4148, -0.56, 0.3007, 0.7596, 1.9676,
1.4439, 0.8097, 0.567, 0.8794, 0.4682, 0.0244, 0.3471, -1.4509,
0.084, 0.8772, 0.9109, 0.9814, 0.8735, -1.2267, -0.5929, 0.0974,
-0.5439, -0.1864, -0.2267, 0.2909, 0.4391, 1.6007, -0.3391, 0.7604,
1.2667, -0.5469, -2.0717, 0.1032, -0.8957, -0.2995, -0.5436,
-1.3505, -1.7606, -1.2545, 0.5542, -1.8729, 0.5303, 0.3662, -0.7687,
-0.9429, -1.039, -1.8829, -0.5918, -0.3074, 1.0375, -0.8654,
0.9921, 1.4374, 1.3635, 1.6056, -2.7024, -0.3755, 1.2918, 0.5535,
0.0051, 1.0287, 0.185, -0.3267, -0.3881, 2.522, 2.956, 2.0676,
0.3443, -0.5042, 0.6972, 2.0633, 1.3433, 2.3265, 1.5505, 1.844,
1.7833, 1.5835, -0.3062), .Tsp = c(1992, 2008.58333333333, 12
), class = c("tsd", "ts"), time.units = "Months", data.title = "Simulated Time Series #15", response.units = "Sales")
ski.resort.tsd <-
structure(c(33.63, 36.46, 41.18, 43.16, 46.45, 50.63, 54.41,
58.66, 62.52, 65.55, 69.62, 72.92, 74.64, 80.31, 80.97, 87.75,
88.07, 94, 96.16, 96.98, 103.9, 107.77, 110.42, 114.91), .Tsp = c(1984,
1989.75, 4), class = c("tsd", "ts"), time.units = "Time", data.title = "Visitors to a Colarado Ski Resort", response.units = "Thousands of Visitors")
spot.tsd <-
structure(c(101, 82, 66, 35, 31, 7, 20, 92, 154, 125, 85, 68,
38, 23, 10, 24, 83, 132, 131, 118, 90, 67, 60, 47, 41, 21, 16,
6, 4, 7, 14, 34, 45, 43, 48, 42, 28, 10, 8, 2, 0, 1, 5, 12, 14,
35, 46, 41, 30, 24, 16, 7, 4, 2, 8, 17, 36, 50, 62, 67, 71, 48,
28, 8, 13, 57, 122, 138, 103, 86, 63, 37, 24, 11, 15, 40, 62,
98, 124, 96, 66, 64, 54, 39, 21, 7, 4, 23, 55, 94, 96, 77, 59,
44, 47, 30, 16, 7, 37, 74), .Tsp = c(1770, 1869, 1), class = c("tsd",
"ts"), time.units = "Year", data.title = "Wolfer Sunspots", response.units = "Number of Spots")
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.