Media Aritmetica Altura y Peso

Medidas Estadisticas

PESO DE CONOCIDOS

Se les pregunto a mis amigos, ¿Cuanto pesan?, El objetivo es obtener medidas de estadisticas a partir de sus datos.

Los datos son:

#Peso
peso <- c(73,57,72,91,67,82,71,75,73,69,61,74,61,81,68)

Medida aritmetica

#Opcion 1
promedio = sum(peso)/length(peso)
promedio

## [1] 71.66667

#Opcion 2
mean(peso)

## [1] 71.66667

El peso promedio es de 71.66667. # Mediana

median(peso)

## [1] 72

El valor de la mediana es 72

Moda

#Opcion 1

table(peso)

## peso
## 57 61 67 68 69 71 72 73 74 75 81 82 91 
##  1  2  1  1  1  1  1  2  1  1  1  1  1

#Opcion 2
library(modeest)
mfv(peso)

## [1] 61 73

El peso mas frecuente es 61 y 73 respectivamente.

Medidas de variabilidad o disperción

Rango

Rango = Valor máximo – Valor mínimo

#Opcion 1
rango = max(peso) - min(peso)
rango

## [1] 34

#Opcion 2
range(peso)

## [1] 57 91

Varianza

\(s^2=\frac{\sum_{i=1}^n\left(x_i-\bar{x}\right)^2}{n-1}\)

Desviación estandart

#Opcion 1

sqrt(var(peso))

## [1] 8.75595

#Opcion 2

sd(peso)

## [1] 8.75595

La variable promedio de los datos respecto a la media es de 8.75595

Coeficiente de variación

\[cv=\frac{s}{\bar{x}}\times100\]

coef_var <-sd(peso)/ mean(peso)*100
coef_var

## [1] 12.21761

El coeficiente de varianción es 12.21761

Con la Funcion

summary(peso)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   57.00   67.50   72.00   71.67   74.50   91.00

Con la funcion psych

library(psych)
describe(peso)

##    vars  n  mean   sd median trimmed  mad min max range skew kurtosis   se
## X1    1 15 71.67 8.76     72   71.31 5.93  57  91    34 0.34    -0.37 2.26

Medidas Estadisticas

ALTURA DE CONOCIDOS

Se les pregunto a mis amigos, ¿Cuanto miden?, El objetivo es obtener medidas de estadisticas a partir de sus datos. Los datos son:

#Altura

altura <- c(1.65,1.63,1.72,1.70,1.68,1.67,1.70,1.64,1.63,1.63,1.65,1.68,1.61,1.72,1.58)

Medida aritmetica

#Opcion 1
promedio = sum(altura)/length(altura)
promedio

## [1] 1.659333

#Opcion 2
mean(altura)

## [1] 1.659333

La altura promedio es de 1.659333.

Mediana

median(altura)

## [1] 1.65

El valor de la mediana es 1.65.

Moda

#Opcion 1

table(altura)

## altura
## 1.58 1.61 1.63 1.64 1.65 1.67 1.68  1.7 1.72 
##    1    1    3    1    2    1    2    2    2

#Opcion 2
library(modeest)
mfv(altura)

## [1] 1.63

La altura mas frecuente es 1.63.

Medidas de variabilidad o disperción

Rango

Rango = Valor máximo – Valor mínimo

#Opcion 1
rango = max(altura) - min(altura)
rango

## [1] 0.14

#Opcion 2
range(altura)

## [1] 1.58 1.72

Varianza

\(s^2=\frac{\sum_{i=1}^n\left(x_i-\bar{x}\right)^2}{n-1}\)

Desviación estandart

#Opcion 1

sqrt(var(altura))

## [1] 0.04096456

#Opcion 2

sd(altura)

## [1] 0.04096456

La variable promedio de los datos respecto a la media es de 0.04096456

Coeficiente de variación

\[cv=\frac{s}{\bar{x}}\times100\]

coef_var <-sd(altura)/ mean(altura)*100
coef_var

## [1] 2.468736

El coeficiente de varianción es 2.468736

Con la Funcion

summary(altura)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   1.580   1.630   1.650   1.659   1.690   1.720

Con la funcion psych

library(psych)
describe(altura)

##    vars  n mean   sd median trimmed  mad  min  max range skew kurtosis   se
## X1    1 15 1.66 0.04   1.65    1.66 0.04 1.58 1.72  0.14 -0.1    -1.09 0.01