##sábado 28 de marzo
library(readxl)
datos <-read_excel("C:/Users/jhoan/Desktop/Maestría Finanzas PUJ/Analítica de datos/Talleres/Colombina.xlsx",
col_types = c("date", "numeric", "numeric",
"numeric", "numeric", "numeric",
"numeric", "numeric", "numeric",
"numeric", "numeric", "numeric"))
head(datos)## # A tibble: 6 × 12
## FECHA INGRESOS UTILIDADOPER ACTIVOS PASIVOS EBITDA QUICKRATIO
## <dttm> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2016-01-01 00:00:00 400871238 134228489 1.39e9 1.20e9 4.78e7 0.46
## 2 2016-04-01 00:00:00 398002762 132113511 1.38e9 1.19e9 3.65e7 0.61
## 3 2016-07-01 00:00:00 480807000 163638000 1.40e9 1.20e9 5.52e7 0.59
## 4 2016-10-01 00:00:00 469500000 158209000 1.42e9 1.18e9 7.80e7 0.5
## 5 2017-01-01 00:00:00 397086000 138297000 1.43e9 1.24e9 4.99e7 0.54
## 6 2017-04-01 00:00:00 398514000 136094000 1.46e9 1.27e9 4.37e7 0.56
## # ℹ 5 more variables: MEBITDA <dbl>, MBRUTO <dbl>, MOPERACIONAL <dbl>,
## # ROA <dbl>, ROE <dbl>