foo <- structure(c(241.9203, 220.3636, 206.1638, 230.09, 225.5845, 246.9265,
262.9155, 290.3856, 336.6806, 293.8101, 324.6907, 310.3578, 317.6533,
306.8379, 317.8876, 328.5899, 326.8517, 293.8742, 299.6849, 297.7617,
316.7904, 293.6536, 254.1531, 251.9214, 246.0491, 260.2418, 238.462,
215.0075, 241.7445, 221.4123, 218.8099, 241.9407, 245.1494, 264.8266,
296.412, 294.8779, 395.0488, 353.749, 392.9022, 385.7599, 375.7934,
373.6907, 351.679, 354.8567, 285.1978, 313.632, 283.5793, 289.9032,
230.2673, 236.9925, 235.6983, 258.7188, 242.1503, 245.8713, 282.6107,
334.9666, 305.1172, 327.5968, 297.2701, 329.1228, 334.8275, 313.3871,
319.5939, 353.5521, 312.4008, 291.6329, 284.5193, 275.8964, 320.3088,
254.1532, 273.4656, 272.8927, 256.165, 290.819, 248.7677, 223.6493,
246.7196, 255.4036, 254.5155, 234.5396, 266.1468, 243.4829, 321.5803,
360.357, 360.9575, 382.4172, 394.3878, 387.9367, 368.8082, 349.0442,
381.8906, 332.3456, 319.8546, 312.0474, 294.1142, 261.8257, 233.3878,
227.0548, 243.5518, 227.7418, 223.6998, 283.9111, 273.2437, 332.4243,
311.2085, 348.8707, 338.8556, 332.863, 351.1514, 317.052, 334.8323,
337.8691, 331.5301, 300.1325, 269.561, 307.2198, 288.2723, 272.5979,
259.7442, 235.2082, 244.4552, 274.0145, 215.2463, 228.2368, 257.3642,
223.9389, 213.7356, 253.6904, 227.942, 259.466, 301.5785, 345.1072,
373.7756, 360.0883, 388.6511, 365.6167, 355.4931, 379.1586, 385.5886,
384.2582, 322.8132, 343.4649, 320.0886, 273.1052, 212.886, 233.2341,
239.5355, 234.7369, 254.973, 258.4551, 267.5207, 330.2345, 347.5499,
319.4627, 323.3924, 308.2652, 328.7982, 307.6518, 352.2171, 343.5138,
296.088, 264.0899, 277.2401, 314.8284, 300.0671, 264.9203, 258.8703,
251.8104, 269.5821, 264.7049, 255.4452, 262.3597, 241.6386, 228.2539,
245.195, 224.3869, 236.6968, 272.1755, 326.1493, 307.5129, 286.792,
415.3932, 376.5093, 340.6404, 392.2911, 343.2494, 380.8153, 365.2933,
345.5178, 299.1936, 311.9355, 246.1235, 217.8098, 216.0994, 242.0266,
216.5902, 238.7257, 265.4956, 283.7775, 278.7456, 300.3206, 340.6828,
313.7325, 320.8051, 339.4271, 329.1402, 306.2272, 308.7709, 297.3903,
273.9493, 268.0206, 278.2728, 287.6067, 271.4047, 251.2858, 235.4024,
250.9883, 271.6571, 212.9992, 263.0294, 220.7609, 228.8408, 230.0641,
220.0385, 261.6187, 305.6155, 300.5872, 337.0932, 362.5779, 418.7188,
339.4142, 360.7052, 318.3402, 299.4933, 359.9001, 348.2164, 342.2668,
289.0761, 304.3424, 236.442), .Tsp = c(1, 240, 1), class = "ts")

seasonplot(ts(foo,frequency=12))

seasonplot(ts(foo,frequency=12))

model <- auto.arima(ts(foo,frequency=24))
plot(forecast(model,h=24))