## Problem 1:

WHIP.vec<-c(1.553,1.439,1.468,1.310,1.141,1.197,1.250,1.174,1.152,1.108,1.230,1.175,
1.236,1.170,1.198,1.288,1.430,1.180,1.442,1.461,1.426,1.355,1.591,1.712,1.590,1.526,1.518,1.382,1.430,1.408,1.352,1.307,
1.284,1.186,1.205,1.196,1.190,1.137,1.184,1.243,1.352,1.355,1.285,1.261,1.248,
1.217,1.210,1.239,1.272,1.344,1.410,1.433,1.435,1.424,1.475,1.429,1.422,1.418,1.494,1.501,1.442,1.414,1.381,1.456,
1.467,1.509,1.465,1.464,1.449,1.427,1.408,1.344,1.345,1.355,1.380,1.378,1.424,
1.447,1.459,1.480,1.416,1.353,1.414,1.398,1.393,1.387,1.344,1.349,1.349,1.343,1.374,1.360,1.259,1.280,1.267,1.258,
1.238,1.193,1.319,1.356,1.297,1.260,1.351,1.343,1.361,1.317,1.372,1.335,1.374,
1.356,1.316,1.345,1.350,1.345,1.344,1.357,1.391,1.307,1.321,1.349,1.338,1.328,1.387,1.430,1.421,1.440,1.412,1.403,
1.463,1.468,1.379,1.376,1.383,1.400,1.369,1.408,1.406,1.391,1.390,1.347,1.316,1.309,1.300)

WHIP.ts <- ts(WHIP.vec,start=1871,frequency=1)



## Problem 2:

lynx.vec=c(269, 321,585,871,1475,2821,3928,5943,4950,2577,523,98,
184,279,409,2285,2685,3409,1824,409,151,45,68,213,546,1033,2129,2536,
957,361,377,225,360,731,1638,2725,2871,2119,684,299,236,245,552,1623,
3311,6721,4254,687,255,473,358,784,1594,1676,2251,1426,756,299,201,229,
469,736,2042,2811,4431,2511,389,73,39,49,59,188,
377,1292,4031,3495,587,105,153,387,758,1307,3465,6991,6313,3794,1836,
345,382,808,1388,2713,3800,3091,2985,3790,674,81,80,108,229,399,1132,
2432,3574,2935,1537,529,485,662,1000,1590,2657,3396)

lynx.ts = ts(lynx.vec, start=1821, freq=1)


## Problem 3:

annual.house.prices.US<-c(19375,20300,21450,22925,24125,26425,27725,26650,28100,
30075,35100,38725,42525,48050,54350,62700,71900,76375,83175,83850,
89775,97550,100825,112075,127575,138650,148125,
149075,147275,144675,147475,154175,157750,165525,174875,181150,194675,205375,211050,
226700,244550,272125,291275,303900,309800,289075,269350,272025,264600,288225,321650)

hp.ts <- ts(annual.house.prices.US, start=1963, frequency=1)