EAM2019

ESTADÍSTICAS DESCRIPTIVAS DE EAM2019

Se presenta a continuación las estadisticas descriptivas de los miscrodatos del DANE EAM2019

library(moments)
library(modeest)
library(readxl)
library(fdth)
EAM2019 <- read_excel("D:/Datos-PC/Nueva carpeta (3)/Datos RPub/EAM2019.xlsx")
View(EAM2019)
attach(EAM2019)

summary(c3r3c3) #note que ya no tendremos que separar por $, dado la función attach

##     Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
##        0    30581    88773   410840   298798 31396894

mean(c3r3c3)

## [1] 410839.5

median(c3r3c3)

## [1] 88773

sd(c3r3c3)

## [1] 1212707

variance <- function (c3r3c3)   
  sum((c3r3c3-mean(c3r3c3))^2)/(length(c3r3c3)-1) #escrita como una funcion
variance(c3r3c3)

## [1] 1.470657e+12

skewness(c3r3c3) #nos da el valor de la asimetria de los datos de la variable x

## [1] 10.57187

kurtosis(c3r3c3) #nos da el achatamiento de la distribucion de los datos de la variable x.

## [1] 198.7975

quantile(c3r3c3) #Muestra los cuartiles de la variable x

##         0%        25%        50%        75%       100% 
##        0.0    30581.0    88773.0   298797.5 31396894.0

quantile(c3r3c3, c(.35, .60, .98))  #Muestra los percentiles al 35, 60 y 96% de la variable x

##     35%     60%     98% 
##   46850  135882 3861052

coef_var <- function(c3r3c3, na.rm = FALSE) {
  (sd(c3r3c3, na.rm=na.rm) / mean(c3r3c3, na.rm=na.rm))*100
}
coef_var(c3r3c3, na.rm=T)

## [1] 295.1777

mfv(c3r3c3) #Indica el o los valores con más frecuencia (Moda)

## [1] 0

#DISTRIBUCION DE FRECUENCIA

datosfreq<- EAM2019 $ c3r3c3 #utilizamos el simbolo de $ para separar de los datos la variable de interes.
range(datosfreq) #observamos el rango de duración, en nuestro caso, va de 3 a 25

## [1]        0 31396894

dist1 <- fdt(EAM2019 $ c3r3c3,breaks="Sturges") 
dist1

##                 Class limits    f   rf rf(%)   cf  cf(%)
##             [0,2265061.6386) 7346 0.96 96.27 7346  96.27
##  [2265061.6386,4530123.2771)  181 0.02  2.37 7527  98.64
##  [4530123.2771,6795184.9157)   56 0.01  0.73 7583  99.37
##  [6795184.9157,9060246.5543)   23 0.00  0.30 7606  99.67
##  [9060246.5543,11325308.193)   15 0.00  0.20 7621  99.87
##  [11325308.193,13590369.831)    3 0.00  0.04 7624  99.91
##   [13590369.831,15855431.47)    3 0.00  0.04 7627  99.95
##   [15855431.47,18120493.109)    0 0.00  0.00 7627  99.95
##  [18120493.109,20385554.747)    1 0.00  0.01 7628  99.96
##  [20385554.747,22650616.386)    0 0.00  0.00 7628  99.96
##  [22650616.386,24915678.024)    0 0.00  0.00 7628  99.96
##  [24915678.024,27180739.663)    0 0.00  0.00 7628  99.96
##  [27180739.663,29445801.301)    0 0.00  0.00 7628  99.96
##   [29445801.301,31710862.94)    3 0.00  0.04 7631 100.00

GRÁFICOS ESTADÍSTICOS

se presentan a continuación algunos gráficos estadisticos de los microdatos DANE EAM2019