Medidas Estadisticas

Tarea Semana 8

Se realizo una recoleccion de informacion, a mis amigos y conocidos, de las variables cauntitativas peso y altura.

Los datos son:

#Pesos
pesos = c(51.3,64.3,65.8,70.4,65.3,72.8,66.3,55.1,52.2,83.8,72.6,66.3,76.4,50.9,89.4)
#Alturas
alturas =c(1.55,1.68,1.71,1.73,1.60,1.65,1.64,1.61,1.58,1.73,1.65,1.62,1.71,1.60,1.80)

Medidas estadísticas de tendencia central

Media aritmetica

#opcion 1
promedio = sum(pesos)/length(pesos)
promedio
## [1] 66.86
#opcion 2
mean(alturas)
## [1] 1.657333

Interpretación 1: El peso promedio de mis amigos es: 66.86 kg.

Interpretación 2: La altura promedio de mis amigos es: 1.65 Metros.

Mediana Aritmetica

#Mediana de Pesos (1)
median(pesos)
## [1] 66.3
#Mediana de Alturas (2)
median(alturas)
## [1] 1.65

Interpretación 1: El 50% de mis amigos su peso maximo es 66.3kg y el otro 50% su valor minimo es 66.3kg

Interpretación 2: El 50% de mis amigos su altura maxima es 1.65 metros y el otro 50% su valor minimo es 1.65 metros

Moda Aritmetica

#Opcion 1
table(pesos)
## pesos
## 50.9 51.3 52.2 55.1 64.3 65.3 65.8 66.3 70.4 72.6 72.8 76.4 83.8 89.4 
##    1    1    1    1    1    1    1    2    1    1    1    1    1    1
#Amodal
#Opcion 2
library(modeest)
## Warning: package 'modeest' was built under R version 4.3.2
mfv(alturas)
## [1] 1.60 1.65 1.71 1.73
#Multimodal

Interpretación 1: El peso no tiene un valor mas frecuente.

Interpretación 2: Las alturas mas frecuentes son 1.60, 1.65, 1.71 y 1.73 Metros respectivamente.

Medidas de Variabilidad O Dispercion

Rango

#Opcion 1 
rango = max(pesos) - min(pesos)
rango
## [1] 38.5
#Opcion 2
range(alturas) #Se tiene que restar las edades
## [1] 1.55 1.80

Interpretación 1: El rango que hay en los pesos de mis amigos es de 38.5kg.

Interpretación 2: El rango que hay en las alturas de mis amigos es de 0.25 Metros.

Varianza

#Varianza de Pesos (1)
var(pesos)
## [1] 130.5411
#Varianza de Alturas (2)
var(alturas)
## [1] 0.004649524

Deviacion estandar

#Opcion 1
sqrt(var(pesos))
## [1] 11.42546
#Opcion 2
sd(alturas)
## [1] 0.06818742

Interpretación 1: La variabilidad promedio de los pesos respecto a la media es de 11.42546 Kg.

Interpretación 2: Las alturas de mis amigos se alejan de la media 0.06818742 metros en promedio.

Coeficiente de variación

#coeficiente de variación de Pesos
coeficiente_var_p = sd(pesos)/mean(pesos)*100
coeficiente_var_p
## [1] 17.08863
#coeficiente de variación de Alturas
coeficiente_var_a = sd(alturas)/mean(alturas)*100
coeficiente_var_a
## [1] 4.114285

Interpretación 1: Como el coeficiente de variacion es 17.08863% ≤ 30%, etonces la distribución de los pesos es homogenea y la media es representativa.

Interpretación 2: Como el coeficiente de variacion es 4.114285% ≤ 30%, etonces la distribución de las alturas es homogenea y la media es representativa.

##Otra forma de obtenerlo es:

#Con la funcion summary (pesos)
summary(pesos)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   50.90   59.70   66.30   66.86   72.70   89.40
#Con la funcion psych (alturas)
library(psych)
describe(alturas)
#Con la funcion pastecs (alturas)
library(pastecs)
stat.desc(alturas)
##      nbr.val     nbr.null       nbr.na          min          max        range 
## 15.000000000  0.000000000  0.000000000  1.550000000  1.800000000  0.250000000 
##          sum       median         mean      SE.mean CI.mean.0.95          var 
## 24.860000000  1.650000000  1.657333333  0.017605915  0.037760933  0.004649524 
##      std.dev     coef.var 
##  0.068187417  0.041142850