Análisis descriptivo

### Análisis descriptivo ###

#Una vez se ha ingresado la variable de interés como "x" (Ver: ### Ingreso de datos ###), seguir el siguiente script

#n
length(x)

#Promedio
mean(x)

#Mediana
median(x)

#Varianza muestral (dividida por n-1)
var(x)

#Varianza poblacional:
var(x)*(n-1)/n   #donde n=número de datos

#Desviación estándar muestral (dividida por n-1) 
sd(x)

#Coeficiente de variación
(sd(x)/mean(x))*100

#Rango
max(x)-min(x)

#Moda
estimate_mode <- function(x)
{
d <- density(x)
d$x[which.max(d$y)]
}
estimate_mode(x)