tiempo1=system.time({
fp2024_12 <- read.csv("G:/Mi unidad/Classroom/Big Data Sudameris/datosFP/nomina_2024-12.csv", comment.char="#")
fp2024_06 <- read.csv("G:/Mi unidad/Classroom/Big Data Sudameris/datosFP/nomina_2024-06.csv", comment.char="#")
fp2024_01 <- read.csv("G:/Mi unidad/Classroom/Big Data Sudameris/datosFP/nomina_2024-01.csv", comment.char="#")
})
tiempo1
## user system elapsed
## 42.26 2.71 67.20
Libreria data.table
#install.packages(data.table)
library(data.table)
## Warning: package 'data.table' was built under R version 4.3.3
tiempo2=system.time({
fp2024_12 <- fread("G:/Mi unidad/Classroom/Big Data Sudameris/datosFP/nomina_2024-12.csv")
fp2024_06 <- fread("G:/Mi unidad/Classroom/Big Data Sudameris/datosFP/nomina_2024-06.csv")
fp2024_01 <- fread("G:/Mi unidad/Classroom/Big Data Sudameris/datosFP/nomina_2024-01.csv")
})
tiempo2
## user system elapsed
## 8.14 0.81 6.95
names(fp2024_12)
## [1] "anio" "mes"
## [3] "codigoNivel" "descripcionNivel"
## [5] "codigoEntidad" "descripcionEntidad"
## [7] "codigoPrograma" "descripcionPrograma"
## [9] "codigoSubprograma" "descripcionSubprograma"
## [11] "codigoProyecto" "descripcionProyecto"
## [13] "codigoUnidadResponsable" "descripcionUnidadResponsable"
## [15] "codigoObjetoGasto" "conceptoGasto"
## [17] "fuenteFinanciamiento" "linea"
## [19] "codigoPersona" "nombres"
## [21] "apellidos" "sexo"
## [23] "discapacidad" "codigoCategoria"
## [25] "cargo" "horasCatedra"
## [27] "fechaIngreso" "tipoPersonal"
## [29] "lugar" "montoPresupuestado"
## [31] "montoDevengado" "mesCorte"
## [33] "anioCorte" "fechaCorte"
## [35] "nivelAbr" "entidadAbr"
## [37] "programaAbr" "subprogramaAbr"
## [39] "proyectoAbr" "unidadAbr"