Automate multiple Time Series to get a forecast for each using for and apply in R