En la seguiente seccion se hace la captura de datos desde la web de BCH, donde se publica el precio diario del dolar
#Captura datos desde la web de BCH
nombreArchivo <- "TipoCambioBCH.xls"
url <- "https://www.bch.hn/estadisticos/GIE/LIBTipo%20de%20cambio/Precio%20Promedio%20Diario%20del%20D%C3%B3lar.xls"
download.file(url, nombreArchivo, method="curl")
Los datos estadisticos son los siguientes (desde 2012 hasta hoy):
## Fecha Compra Venta
## Min. :2012-01-03 00:00:00 Min. :19.05 Min. :19.18
## 1st Qu.:2014-04-12 00:00:00 1st Qu.:20.78 1st Qu.:20.93
## Median :2016-08-15 12:00:00 Median :22.89 Median :23.05
## Mean :2016-08-18 01:28:40 Mean :22.50 Mean :22.65
## 3rd Qu.:2018-12-18 18:00:00 3rd Qu.:24.08 3rd Qu.:24.25
## Max. :2021-04-12 00:00:00 Max. :24.84 Max. :25.01
Los precios del dolar de los ultimos 5 dias fueron:
tail(tasas_df, 5)
## Fecha Compra Venta
## 2318 2021-04-06 24.0228 24.1910
## 2319 2021-04-07 24.0196 24.1877
## 2320 2021-04-08 24.0166 24.1847
## 2321 2021-04-09 24.0127 24.1808
## 2322 2021-04-12 24.0197 24.1878
El Siguiente grafico muestra la evolucion del precio del dolar para 2020:
Se observa una clara tendencia de repreciacion en el precio del dolar a partir de junio 2020.
A continuacion se intenta predecir el precio del dolar para los proximos 5 dias, basados en los precios historicos de 2020:
##
## Call:
## lm(formula = Compra ~ Fecha2, data = tasas_df3)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.29352 -0.07949 -0.01189 0.09108 0.21040
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 5.979e+01 9.097e-01 65.72 <2e-16 ***
## Fecha2 -1.909e-03 4.919e-05 -38.82 <2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1189 on 325 degrees of freedom
## Multiple R-squared: 0.8226, Adjusted R-squared: 0.822
## F-statistic: 1507 on 1 and 325 DF, p-value: < 2.2e-16
Observamos el comportamiento y tendencia a la baja en los precios de compra del dolar durante 2020.
Se observa el mismo comportamiento para los precios de venta del dolar:
##
## Call:
## lm(formula = Venta ~ Fecha2, data = tasas_df3)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.29559 -0.08004 -0.01193 0.09173 0.21183
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6.020e+01 9.160e-01 65.72 <2e-16 ***
## Fecha2 -1.923e-03 4.953e-05 -38.82 <2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1198 on 325 degrees of freedom
## Multiple R-squared: 0.8226, Adjusted R-squared: 0.8221
## F-statistic: 1507 on 1 and 325 DF, p-value: < 2.2e-16
Finalmente, se estiman los siguientes precios de compra y venta para los proximos 5 dias:
## Precio Venta Precio Compra
## 1 24.18947 24.02132
## 2 24.18754 24.01941
## 3 24.18562 24.01750
## 4 24.18370 24.01559
## 5 24.18177 24.01368
#Grafico interactivo