R/estimacionBrownC.R

In abmm97/Pseriesti: Suavización de Series de tiempo (Holt-winters y Brown)

function(datos,posicion_estimada,alfa){
  b1t=suavi_brownC(datos,alfa)$Valores_B1t[nrow(datos)]
  b2t=suavi_brownC(datos,alfa)$Valores_B2t[nrow(datos)]
  b3t=suavi_brownC(datos,alfa)$Valores_B3t[nrow(datos)]
  h=posicion_estimada-nrow(datos)
  Estimado=b1t+b2t*h+b3t*h^2
  list(Estimado=Estimado)
}