sunspots <- ts(
c(431, 173, 1151, 5684, 6848,12467, 9669, 7633, 4517, 3136,
 1709, 693, 2006, 5317, 7667, 8285, 9335, 7796, 4280, 2547,
 1337, 679, 1046, 4327, 9568,13728,13146,10650, 8134, 5697,
 3672,1959, 1151, 3971,11101,17981,16344,16214,10071, 8371,
 3769,1662,  529, 4554,17005,22782,22151,19050,13473, 6468,
 4512,3347, 1224, 1807, 5625,11240,12707,12667,12563, 7998) / 120,
	start = 1912, end= 1971)