Usted puede hacer esto en R usando el predict
función. Para facilitar la he usado Mes como predictor y el Valor como resultado. En el vector new
son los valores de predicción como una función del Mes. Por favor, consulte también la trama que muestra los valores proyectados sobre la línea de regresión.
data=data.frame(Month=c(21:33), Value=c(6591.69, 6579.62, 7133.84, 6955.89, 7573.27, 7556.87, 7751.17, 8001.76, 8399.5, 8560.36, 8517.53, 8602.57, 8575.81))
attach(data)
fit1<-lm(Value~Month, data=data)
new<-predict(fit1, data.frame(Month=(c(34,35,36))))
plot(Value~Month, data, col="red", xlim=c(20,36), ylim=c(6000,10000))
abline(fit1, col="orange", lwd=2)
abline(v=c(34,35,36), lty=6)
points(34, new[1], col="blue")
points(35, new[2], col="blue")
points(36, new[3], col="blue")