BASE DE DATOS COMPARENDOS

1. BASE DE DATOS

library(readxl)

BD_Comparendos_OK_ <- read_excel("C:/Users/SENA/Downloads/BD Comparendos OK$ (2).xlsx")
BD_Comparendos_OK_

2. ESTADÍSTICAS DESCRIPTIVAS

fcomparendos <- as.factor(BD_Comparendos_OK_$SEXO)
summary(fcomparendos)

## CÉDULA NUEVA      EMPRESA       HOMBRE        MUJER 
##           88          472          615          945

tapply(fcomparendos,BD_Comparendos_OK_$`NOMBRE DEL MES`,summary)

## $Abril
## CÉDULA NUEVA      EMPRESA       HOMBRE        MUJER 
##           37          191          226          258 
## 
## $Mayo
## CÉDULA NUEVA      EMPRESA       HOMBRE        MUJER 
##           51          281          389          687

tapply(fcomparendos,BD_Comparendos_OK_$`TIPO DE VEHICULO`,summary)

## $CARRO
## CÉDULA NUEVA      EMPRESA       HOMBRE        MUJER 
##           81          455          526          876 
## 
## $MOTO
## CÉDULA NUEVA      EMPRESA       HOMBRE        MUJER 
##            7           17           89           69

3. GRÁFICOS

hist(BD_Comparendos_OK_$MES)