En el presente informe se muestra el código para hallar las tablas de frecuencia y otras medidas de dispersión de la variable costos la cual fue tomada de una base de datos que acumula información de accidentes de transito en Bucaramanga.
A continuación se adjunta el código:
library(fdth)
tabla1=fdt(Accidentes$costos,start=0, end=2500000, h=100000)
tabla1
plot(tabla1)
media_recortada=mean(Accidentes$costos, trim=0.05)
media_recortada
mediana=median(Accidentes$costos)
cv=sd(Accidentes$costos)/mean(Accidentes$costos)
tabla2=fdt(Accidentes$costos)
tabla2
Luego de la ejecución se obtuvo lo siguiente:
Accidentes=read.csv("https://www.datos.gov.co/resource/g4vd-w4ip.csv")
library(fdth)
## Warning: package 'fdth' was built under R version 4.1.3
##
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
##
## sd, var
tabla1=fdt(Accidentes$costos,start=0, end=24000000, h=6000000)
tabla1
## Class limits f rf rf(%) cf cf(%)
## [0,6000000) 975 0.98 97.5 975 97.5
## [6000000,1.2e+07) 21 0.02 2.1 996 99.6
## [1.2e+07,1.8e+07) 0 0.00 0.0 996 99.6
## [1.8e+07,2.4e+07) 4 0.00 0.4 1000 100.0
plot(tabla1)
media_recortada=mean(Accidentes$costos, trim=0.05)
media_recortada
## [1] 243888.9
mediana=median(Accidentes$costos)
cv=sd(Accidentes$costos)/mean(Accidentes$costos)
tabla2=fdt(Accidentes$costos)
tabla2
## Class limits f rf rf(%) cf cf(%)
## [0,1914415.518) 937 0.94 93.7 937 93.7
## [1914415.518,3828831.036) 25 0.03 2.5 962 96.2
## [3828831.036,5743246.555) 11 0.01 1.1 973 97.3
## [5743246.555,7657662.073) 9 0.01 0.9 982 98.2
## [7657662.073,9572077.591) 6 0.01 0.6 988 98.8
## [9572077.591,11486493.11) 5 0.00 0.5 993 99.3
## [11486493.11,13400908.63) 3 0.00 0.3 996 99.6
## [13400908.63,15315324.15) 0 0.00 0.0 996 99.6
## [15315324.15,17229739.66) 0 0.00 0.0 996 99.6
## [17229739.66,19144155.18) 1 0.00 0.1 997 99.7
## [19144155.18,21058570.7) 3 0.00 0.3 1000 100.0
Luego de la ejecución se puede ver que se obtine que el 97,5 % de los accidentes de transto en la ciudad de Bucaramanga estan en un rango de cosrto de entre 0 y 6 millones de pesos, el 99.6% de los accidentes cuestan entre 6 millones y 12 millones de pesos, también se ve que ningún accidente registrado en la base de datos tuvo un costo de entre 12 y 18 millones, pór ultimo se ve que cuatro accidentes tuvieron costos que superaron un valor de 18 millones pero no superan la cifra de 24 millones, es decir que solo el 0,4% de los accidentes registrados se encuentra en el rango mayor.