data <- M3[[2000]]
out_arima(data)

data <- M3[[1489]]
out_arima(data)

LS0tDQp0aXRsZTogImZyb20gYXJpbWEiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQoNCmBgYHtyLCBmaWcud2lkdGg9IDksIGZpZy5oZWlnaHQ9IDZ9DQpkYXRhIDwtIE0zW1syMDAwXV0NCm91dF9hcmltYShkYXRhKQ0KYGBgDQoNCmBgYHtyLCBmaWcud2lkdGg9IDksIGZpZy5oZWlnaHQ9IDZ9DQpkYXRhIDwtIE0zW1sxNDg5XV0NCm91dF9hcmltYShkYXRhKQ0KYGBgDQo=