Medidas-Estadisticas

Medidas estadísticas para edades

edades <- c(15, 21, 23, 27, 25, 24, 38, 31, 40, 44, 16, 13, 55, 48, 66)

Medidas de Tendencia Central

Media aritmética

mean_edades <- mean(edades)
cat("Media aritmética:", mean_edades, "\n")

## Media aritmética: 32.4

La edad del promedio de los familiares es: 32.4 años

Mediana

median_edades <- median(edades)
cat("Mediana:", median_edades, "\n")

## Mediana: 27

El valor de mediana es: 27

Moda

tab_edades <- table(edades)
moda_edades <- as.numeric(names(tab_edades)[tab_edades == max(tab_edades)])
cat("Moda:", moda_edades, "\n")

## Moda: 13 15 16 21 23 24 25 27 31 38 40 44 48 55 66

Medidas de Variabilidad

Rango

rango_edades <- max(edades) - min(edades)
cat("Rango:", rango_edades, "\n")

## Rango: 53

El valor del rango es: 53

Varianza

varianza_edades <- var(edades)
cat("Varianza:", varianza_edades, "\n")

## Varianza: 244.9714

El valor de la varianza es: 244.9714

Desviación Estándar

desviacion_edades <- sd(edades)
cat("Desviación Estándar:", desviacion_edades, "\n")

## Desviación Estándar: 15.65156

El valor de la desviación Estadar es: 15.65156

Coeficiente de Variación

coef_var_edades <- (desviacion_edades / mean_edades) * 100
cat("Coeficiente de Variación:", coef_var_edades, "\n")

## Coeficiente de Variación: 48.30729

El valor del Coeficiente de Variación es: 48.30729

Resumen con la función summary

summary(edades)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    13.0    22.0    27.0    32.4    42.0    66.0

Medidas estadísticas para alturas

alturas <- c(1.70, 1.75, 1.70, 1.75, 1.78, 1.75, 1.85, 1.72, 1.78, 1.70, 1.75, 1.72, 1.68, 1.70, 1.75)

Media aritmética

mean_alturas <- mean(alturas)
cat("Media aritmética:", mean_alturas, "\n")

## Media aritmética: 1.738667

La Medida Aritmética es: 1.738667

Mediana

median_alturas <- median(alturas)
cat("Mediana:", median_alturas, "\n")

## Mediana: 1.75

La Medida es: 1.75

Moda

tab_alturas <- table(alturas)
moda_alturas <- as.numeric(names(tab_alturas)[tab_alturas == max(tab_alturas)])
cat("Moda:", moda_alturas, "\n")

## Moda: 1.75

La Moda es: 1.75

Medidas de Variabilidad

Rango

rango_alturas <- max(alturas) - min(alturas)
cat("Rango:", rango_alturas, "\n")

## Rango: 0.17

El Rango es: 0.17

Varianza

varianza_alturas <- var(alturas)
cat("Varianza:", varianza_alturas, "\n")

## Varianza: 0.001898095

La Varianza es: 0.001898095

Desviación Estándar

desviacion_alturas <- sd(alturas)
cat("Desviación Estándar:", desviacion_alturas, "\n")

## Desviación Estándar: 0.04356713

La Desviación Estándar es: 0.04356713

Coeficiente de Variación

coef_var_alturas <- (desviacion_alturas / mean_alturas) * 100
cat("Coeficiente de Variación:", coef_var_alturas, "\n")

## Coeficiente de Variación: 2.505778

El Coeficiente de Variación es: 2.505778

Resumen con la función summary

summary(alturas)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   1.680   1.700   1.750   1.739   1.750   1.850

Medidas estadísticas para pesos

pesos <- c(55, 60, 70, 75, 80, 85, 65, 72, 68, 62, 75, 82, 78, 60, 75)

Media aritmética

mean_pesos <- mean(pesos)
cat("Media aritmética de pesos:", mean_pesos, "\n")

## Media aritmética de pesos: 70.8

La Medida aritmética de peso es: 70.8

Mediana

median_pesos <- median(pesos)
cat("Mediana de pesos:", median_pesos, "\n")

## Mediana de pesos: 72

La Mediana de peso es: 72

Moda

tab_pesos <- table(pesos)
moda_pesos <- as.numeric(names(tab_pesos)[tab_pesos == max(tab_pesos)])
cat("Moda de pesos:", moda_pesos, "\n")

## Moda de pesos: 75

La Moda de peso es: 75

Medidas de Variabilidad

Rango

rango_pesos <- max(pesos) - min(pesos)
cat("Rango de pesos:", rango_pesos, "\n")

## Rango de pesos: 30

El Rango de peso es: 30

Varianza

varianza_pesos <- var(pesos)
cat("Varianza de pesos:", varianza_pesos, "\n")

## Varianza de pesos: 80.02857

La Varianza de peso es: 80.02857

Desviación Estándar

desviacion_pesos <- sd(pesos)
cat("Desviación Estándar de pesos:", desviacion_pesos, "\n")

## Desviación Estándar de pesos: 8.945869

La Desviación Estándar de peso es: 8.945869

Coeficiente de Variación

coef_var_pesos <- (desviacion_pesos / mean_pesos) * 100
cat("Coeficiente de Variación de pesos:", coef_var_pesos, "\n")

## Coeficiente de Variación de pesos: 12.63541

El Coeficiente de Variación es: 12.63541

Resumen con la función summary

summary(pesos)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    55.0    63.5    72.0    70.8    76.5    85.0