Pues veamos tengo un excel de donde cargo unos datos de 3 años y genero una matrid con esos datos y luego le agrego una prediccion de arima y exponencial.
Me gustaría añadir en ese mismo excel despues de las predicciones 3 columnas apartes que contengan los datos del primer año , del segundo y del 3 año.(de los datos originales.)
Esta es la parte del codigo donde unifico la prediccion y la secuencia original. (la seguencia original se la entrego en una matriz de 1columnax42filas.
no.pred <- rep(NA, times = pred.times)
data.pred <- data.frame(no.pred, pred.arima.prec, pred.arima.auto,
pred.HW.add.beta.gamma, pred.HW.add.gamma,
pred.HW.mul.beta.gamma, pred.HW.mul.gamma,
pred.HW.no.seasonal, pred.HW.exponential.smooth)
colnames(data.pred) <- c(series.name, name.arima.prec, name.arima.auto,
name.HW.add.beta.gamma, name.HW.add.gamma,
name.HW.mul.beta.gamma, name.HW.mul.gamma,
name.HW.no.seasonal, name.HW.exponential.smooth)
data.original <- data.frame(rep(values, times = length(colnames(data.pred))))
colnames(data.original) <- colnames(data.pred)
data.complete <- rbind(data.original, data.pred)
first.date <- as.Date(paste(year.begin, month.begin, '1', sep = '/'))
dates <- as.character(seq(from = first.date, by = 'month', length.out = nrow(data.complete)))
data.complete <- data.frame(dates, data.complete)