Estadística descriptiva

library(readxl)
hijos <- read_excel("Publico/hijos.xlsx")
View(hijos)
fabs<-table(hijos)
fabs
## hijos
## 0 1 2 3 4 
## 2 5 9 5 3

tabla de frecuencias Absolutas

Cálculo de las frecuencias absolutas de cada valor.

fabs<-table(hijos)
fabs
## hijos
## 0 1 2 3 4 
## 2 5 9 5 3

tabla de frecuencias relativas

frel<- fabs/length(hijos)
frel
## hijos
## 0 1 2 3 4 
## 2 5 9 5 3

frecuencia absoluta acumulada de cada valor de la variable

fabsacum<-cumsum(fabs)
fabsacum
##  0  1  2  3  4 
##  2  7 16 21 24

frecuencia relativa acumulada de cada valor de la variable

frelacum<- cumsum(frel)
frelacum
##  0  1  2  3  4 
##  2  7 16 21 24

Crear la tabla con los distintos tipos de frecuencias

tablafrecuencias<-cbind(fabs, frel,fabsacum,frelacum)
tablafrecuencias
##   fabs frel fabsacum frelacum
## 0    2    2        2        2
## 1    5    5        7        7
## 2    9    9       16       16
## 3    5    5       21       21
## 4    3    3       24       24

Gráfico de barra de número de hijos y la frecuencia absoluta

barplot(fabs,ylab="Frec. absoluta",xlab="Número de hijos",main="Número de hijos
de las familias")

Boxplot

boxplot(hijos$hijos)

Medidas de tendencia central

Media

media<-mean(hijos$hijos)
media
## [1] 2.083333

Mediana

mediana<-median(hijos$hijos)
mediana
## [1] 2

Medidas de posición no central

Cuartiles

Resultado del primer cuartil

q1<-quantile(hijos$hijos,.25)
q1
## 25% 
##   1

Resultado del segundo cuartil

q2<-quantile(hijos$hijos,.50)
q2
## 50% 
##   2

Resultado del tercer cuartil

q3<-quantile(hijos$hijos,.75)
q3
## 75% 
##   3

Medidas de Dispersión

Varianza muestral

varianza<-var(hijos$hijos)
varianza
## [1] 1.297101

Desviación estándar

desvioestandar<-sd(hijos$hijos)
desvioestandar
## [1] 1.138904

Coeficiente de variación

cv<-desvioestandar/media
cv
## [1] 0.5466737

Resumen de los parámetros más importantes de una variable

summary(hijos$hijos)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   0.000   1.000   2.000   2.083   3.000   4.000