Tarea de medidas estadisticas

#Medidas estadisticas

edades<-c(12,14,19,24,24,28,32,36,41,43,52,56,60,62,85)

###Medidas de Tendencia Central

##Media aritmetica

#opcion1
Promedio = sum(edades)/length(edades)
Promedio

## [1] 39.2

#opcion 2
mean(edades)

## [1] 39.2

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

#Mediana

median(edades)

## [1] 36

El valor de mediana es: 36

##Moda

#opcion1 (tabla)
table(edades)

## edades
## 12 14 19 24 28 32 36 41 43 52 56 60 62 85 
##  1  1  1  2  1  1  1  1  1  1  1  1  1  1

## edades
## 12  14 19 24 28 32 36 41 43 52 56 60 62 85
##  1  1  1  2  1   1  1  1  1  1  1  1 1   1

#opcion 2
mode(edades)

## [1] "numeric"

#opcion 2
library(modeest)

## Warning: package 'modeest' was built under R version 4.3.2

mfv(edades)

## [1] 24

##Medidas de variabilidad

##Rango

#opcion 1
rango = max (edades )- min(edades)
rango

## [1] 73

#opcion2
range(edades)

## [1] 12 85

##Varianza

var(edades)

## [1] 424.7429

##Desviación Estándar

#opcion 1
sqrt(var(edades))

## [1] 20.60929

#opcion2
sd(edades)

## [1] 20.60929

##Coeficiente de Variación

Coef_var<- sd(edades)/mean(edades)*100
Coef_var

## [1] 52.57472

##Otra forma de optenerlo es:

# Con la funcion samary
summary(edades)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    12.0    24.0    36.0    39.2    54.0    85.0

alturas <- c(1.60, 1.65, 1.70, 1.75, 1.80, 1.85, 1.65, 1.72, 1.68, 1.60, 1.75, 1.82, 1.78, 1.60, 1.75)

Media aritmética

# Opción 1
Promedio=sum(alturas) / length(alturas)
Promedio

## [1] 1.713333

# Opción 2
mean(alturas)

## [1] 1.713333

##Medidana

median (alturas)

## [1] 1.72

##Moda

## Opción 1 (tabla)
table(alturas)

## alturas
##  1.6 1.65 1.68  1.7 1.72 1.75 1.78  1.8 1.82 1.85 
##    3    2    1    1    1    3    1    1    1    1

## Opción 2
library(modeest)
mfv(alturas)

## [1] 1.60 1.75

Medidas de Variabilidad

Rango

##opcion1
rango=max(alturas) - min(alturas)
rango

## [1] 0.25

# Opción 2
range(alturas)

## [1] 1.60 1.85

Varianza

var(alturas)

## [1] 0.006709524

Desviación Estándar

# Opción 1
sqrt(var(alturas))

## [1] 0.08191168

# Opción 2
sd(alturas)

## [1] 0.08191168

Coeficiente de Variación

Coef_var <-(alturas) / mean(alturas) * 100
Coef_var 

##  [1]  93.38521  96.30350  99.22179 102.14008 105.05837 107.97665  96.30350
##  [8] 100.38911  98.05447  93.38521 102.14008 106.22568 103.89105  93.38521
## [15] 102.14008

Otra forma de obtenerlo es con la función summary

summary(alturas)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   1.600   1.650   1.720   1.713   1.765   1.850