Para esta tarea se usara R y se usaran datos de una de las estaturas de niños en la primaria Emiliano Zapata:
NORMALCLIMCDOB <- c(1.35, 1.45, 1.4, 1.43, 1.49, 1.49, 1.51, 1.5, 1.55, 1.47, 1.55, 1.57, 1.39, 1.44, 1.43, 1.54, 1.39, 1.33, 1.3, 1.53, 1.41)
sort(NORMALCLIMCDOB, decreasing = TRUE)
## [1] 1.57 1.55 1.55 1.54 1.53 1.51 1.50 1.49 1.49 1.47 1.45 1.44 1.43 1.43 1.41
## [16] 1.40 1.39 1.39 1.35 1.33 1.30
sort(NORMALCLIMCDOB, decreasing = FALSE)
## [1] 1.30 1.33 1.35 1.39 1.39 1.40 1.41 1.43 1.43 1.44 1.45 1.47 1.49 1.49 1.50
## [16] 1.51 1.53 1.54 1.55 1.55 1.57
library(fdth)
##
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
##
## sd, var
tabla <- fdt(NORMALCLIMCDOB)
tabla
## Class limits f rf rf(%) cf cf(%)
## [1.287,1.337) 2 0.10 9.52 2 9.52
## [1.337,1.387) 1 0.05 4.76 3 14.29
## [1.387,1.436) 6 0.29 28.57 9 42.86
## [1.436,1.486) 3 0.14 14.29 12 57.14
## [1.486,1.536) 5 0.24 23.81 17 80.95
## [1.536,1.586) 4 0.19 19.05 21 100.00
plot(tabla,type='fh')
plot(tabla,type='fp')
plot(tabla,type='rfh')
plot(tabla,type='rfp')
plot(tabla,type='cfh')
plot(tabla,type='cfp')
mean(NORMALCLIMCDOB)
## [1] 1.453333
median(NORMALCLIMCDOB)
## [1] 1.45
library(modeest)
##
## Attaching package: 'modeest'
## The following object is masked from 'package:fdth':
##
## mfv
mlv(NORMALCLIMCDOB, method = "mfv")
## [1] 1.39 1.43 1.49 1.55
summary(NORMALCLIMCDOB)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 1.300 1.400 1.450 1.453 1.510 1.570
boxplot(NORMALCLIMCDOB)