Identificar datos de la muestra

 datos <- sample(70:100, 1000, replace = TRUE)
 datos
##    [1]  94  80  99  85  84  94  89  75  78  89  99  84  99  93  80  88  72  87
##   [19]  95  96  78  90  74  79  95  75  73  90  71  70 100  90  95  92  97  77
##   [37]  93  88  95  88  75  77  99  97 100  71  81  90  70  94  73  92  90  98
##   [55]  79 100  81  94  97  73  87  88  72  95  71  78  94  70  95  86  98  74
##   [73]  72  80  93  71  88  89  81  72  78  97  74  84  85  94  82  98  83  86
##   [91]  77  77  97  78  97  80  90  88  71  88  91  76  91  80  86  85  93  97
##  [109]  78  80  74  75  90  89  99  83  74  92  85  94  84  99  81  72  99  87
##  [127]  97  72  95  94  72  97  79  82  85  99  78  94  88  73  78  83  86  73
##  [145]  82  85  75  91  77  86  90  97  80  93 100  82  85  87  89  76  74  81
##  [163]  76  80  93  99  90  89  96  83  89  90  94  70  72  79  74  82  82  77
##  [181]  97  83  85  88  91  71  90  71  75  88  77  95  95  84  94  78  85  92
##  [199]  82  83  71  97  91  90  86  88  86  92  71  89  91  73  84  75  95  83
##  [217]  92  92  76  82  70  92  85  83  74  72  92  96  78  84  91  85  79  89
##  [235]  78  72  79  97  95  74  79  76  74  82  84  89  94  91  72  88  80  82
##  [253]  94  84  95  81  79  81  88  77  78  83  97  97  84 100  81  89  88  84
##  [271]  91  86  96  96  78  70  89  86  79  83  97 100  89  85  85  78  94 100
##  [289]  94  78  81  81  73  86  97  96  82  71  90  73  81  85  95  97  77  73
##  [307]  86  82  93  97  75  82  86  81  92  97  93  73  86  93  97  85  96  93
##  [325]  73  94  92  90  76  87  90  70 100  93  84  95  77  87  80  74  72  83
##  [343]  92  91  89  97  98  87  99  89  86  71  97  95  93  70  83  81  92  79
##  [361]  80  83  93  97  89  80  83  77  85  77  76  89  86  79  93  80  81  91
##  [379]  95  76  85  71  90  92  99  95  97  83  91  92  79  71  74  78  82  79
##  [397] 100  87  97  88 100  76  81  95  98  89  83  90  78  82  74  85  94  95
##  [415]  76  91  90  75  86  71  82  73  80  90  92  85  93  89  97  76  89  71
##  [433]  86  73  94  79 100  72  85  70  87  77  71  78  73  87  91  98 100  73
##  [451]  84  83  77  86  78  72  78  87  79  82  93  99  70  86  78  81  74  70
##  [469]  89  76  94  91  75  78  86  76  77  89 100  81  89  94  97  82  73  86
##  [487]  89  91  72  81 100  96  93  79  98  71 100  92  81  73  87  79  90  87
##  [505]  90  85  70  81  98  72  76  73  70  92  89  91  90  96  99  87  73  85
##  [523]  82  87  93  88  99  98  73  79  97  97  82  75  96  81 100  79  93  81
##  [541]  80  98  79  87  85  78  88  76  94  92  90  89  94 100  79  71  87  98
##  [559]  84  92  86  98  74  92  71  99  74  70  79  98  87  83  83  99  84  79
##  [577]  78  85  73  75  99 100  99  74  85  79  95 100  98  91  81  89  80  89
##  [595]  99  79  90  80  82  79  83  73  97  76  84  94  92  74  97  74  79  80
##  [613]  72  93  81  93  95  79  71  87  93  78  88  90  75  89  76  96  83  74
##  [631]  85  99  71  81  81  99  95  94  92  92  83  85  90  95  76  82  97  88
##  [649]  88  89  76  77  93  93  79  83  79  81  91  93  90  74  71  91  98  80
##  [667]  70  73  72  82  89  89  88  79  80 100  79  98  94  83  82  80  92  95
##  [685]  71  99  80  97  97  98  84  82  85  94  75  76  97  92  97  83  92  87
##  [703]  91  96  79  79  78  74  70 100  98  78  89  82  99  87 100  95  77  76
##  [721]  96  94  83  86  70  80  94  86  93 100  87  91  96  82  85  77  73  72
##  [739]  82  73  78  91  72  89  75  79  88  91  97  74  80  95  97 100  97  82
##  [757]  82  85 100  77  89  90  85  75  78  70  99  71  96  94  86  85  87  76
##  [775]  86  91  77  87  98 100  73  90 100  74  76  70  84  84  73  90  77  90
##  [793]  86  83  91  79  90  97  75  77  76  78  83  94  74  96  98  78  94  75
##  [811] 100  84  90  85  91  86  93  79  77 100  86  71  98  84  77  79  70  86
##  [829]  70  95  97  85  82  91  98  82  98  81  87  74  79  90  83  91  91  81
##  [847]  74  72  72  73  96  74  97  90  95  76  73  99  83  99  71  90  75  70
##  [865]  91  96  85  86  80  78  79  78  77  73  88  96  89  98  83  82  93  81
##  [883]  85  80  78  93  71  85  77  99  94  72 100 100  81  99  84  87  71  98
##  [901]  99  83  93  92  98  91  77 100  95  91  85 100  87  74  79  73  80  86
##  [919]  78  76  71  72  75  73  96  98  72  98  70  91  82  74  88  91  85  88
##  [937]  71  99  98  99  96  78  76  74  99 100  82 100  75  91  95  88  95  98
##  [955]  98  94  81  78 100  81  72  93  84  97  94  77  80  89  77  77  94  73
##  [973]  79  92  98  97  88  70  76  94  98  85  89  85  71  84  99  87  89  99
##  [991]  84  76  76  77  89  87  92  72  75  92

Ordenar datos y mostrar

muestraord <- sort(datos)
muestraord
##    [1]  70  70  70  70  70  70  70  70  70  70  70  70  70  70  70  70  70  70
##   [19]  70  70  70  70  70  70  71  71  71  71  71  71  71  71  71  71  71  71
##   [37]  71  71  71  71  71  71  71  71  71  71  71  71  71  71  71  71  71  71
##   [55]  71  72  72  72  72  72  72  72  72  72  72  72  72  72  72  72  72  72
##   [73]  72  72  72  72  72  72  72  72  72  72  73  73  73  73  73  73  73  73
##   [91]  73  73  73  73  73  73  73  73  73  73  73  73  73  73  73  73  73  73
##  [109]  73  73  73  73  73  73  73  74  74  74  74  74  74  74  74  74  74  74
##  [127]  74  74  74  74  74  74  74  74  74  74  74  74  74  74  74  74  74  74
##  [145]  74  74  75  75  75  75  75  75  75  75  75  75  75  75  75  75  75  75
##  [163]  75  75  75  75  75  75  76  76  76  76  76  76  76  76  76  76  76  76
##  [181]  76  76  76  76  76  76  76  76  76  76  76  76  76  76  76  76  76  76
##  [199]  77  77  77  77  77  77  77  77  77  77  77  77  77  77  77  77  77  77
##  [217]  77  77  77  77  77  77  77  77  77  77  77  77  77  78  78  78  78  78
##  [235]  78  78  78  78  78  78  78  78  78  78  78  78  78  78  78  78  78  78
##  [253]  78  78  78  78  78  78  78  78  78  78  78  78  78  78  79  79  79  79
##  [271]  79  79  79  79  79  79  79  79  79  79  79  79  79  79  79  79  79  79
##  [289]  79  79  79  79  79  79  79  79  79  79  79  79  79  79  79  79  79  79
##  [307]  79  79  80  80  80  80  80  80  80  80  80  80  80  80  80  80  80  80
##  [325]  80  80  80  80  80  80  80  80  80  80  80  80  81  81  81  81  81  81
##  [343]  81  81  81  81  81  81  81  81  81  81  81  81  81  81  81  81  81  81
##  [361]  81  81  81  81  81  81  81  81  81  82  82  82  82  82  82  82  82  82
##  [379]  82  82  82  82  82  82  82  82  82  82  82  82  82  82  82  82  82  82
##  [397]  82  82  82  82  82  82  82  82  83  83  83  83  83  83  83  83  83  83
##  [415]  83  83  83  83  83  83  83  83  83  83  83  83  83  83  83  83  83  83
##  [433]  83  83  83  83  84  84  84  84  84  84  84  84  84  84  84  84  84  84
##  [451]  84  84  84  84  84  84  84  84  84  84  84  85  85  85  85  85  85  85
##  [469]  85  85  85  85  85  85  85  85  85  85  85  85  85  85  85  85  85  85
##  [487]  85  85  85  85  85  85  85  85  85  85  85  85  85  85  85  85  86  86
##  [505]  86  86  86  86  86  86  86  86  86  86  86  86  86  86  86  86  86  86
##  [523]  86  86  86  86  86  86  86  86  86  86  86  86  87  87  87  87  87  87
##  [541]  87  87  87  87  87  87  87  87  87  87  87  87  87  87  87  87  87  87
##  [559]  87  87  87  87  87  88  88  88  88  88  88  88  88  88  88  88  88  88
##  [577]  88  88  88  88  88  88  88  88  88  88  88  88  88  88  89  89  89  89
##  [595]  89  89  89  89  89  89  89  89  89  89  89  89  89  89  89  89  89  89
##  [613]  89  89  89  89  89  89  89  89  89  89  89  89  89  89  89  89  89  89
##  [631]  90  90  90  90  90  90  90  90  90  90  90  90  90  90  90  90  90  90
##  [649]  90  90  90  90  90  90  90  90  90  90  90  90  90  90  90  90  90  90
##  [667]  91  91  91  91  91  91  91  91  91  91  91  91  91  91  91  91  91  91
##  [685]  91  91  91  91  91  91  91  91  91  91  91  91  91  91  91  91  91  91
##  [703]  92  92  92  92  92  92  92  92  92  92  92  92  92  92  92  92  92  92
##  [721]  92  92  92  92  92  92  92  92  92  92  92  92  92  93  93  93  93  93
##  [739]  93  93  93  93  93  93  93  93  93  93  93  93  93  93  93  93  93  93
##  [757]  93  93  93  93  93  93  93  93  94  94  94  94  94  94  94  94  94  94
##  [775]  94  94  94  94  94  94  94  94  94  94  94  94  94  94  94  94  94  94
##  [793]  94  94  94  94  94  94  94  94  95  95  95  95  95  95  95  95  95  95
##  [811]  95  95  95  95  95  95  95  95  95  95  95  95  95  95  95  95  95  95
##  [829]  95  95  95  96  96  96  96  96  96  96  96  96  96  96  96  96  96  96
##  [847]  96  96  96  96  96  96  97  97  97  97  97  97  97  97  97  97  97  97
##  [865]  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97
##  [883]  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97  98  98  98
##  [901]  98  98  98  98  98  98  98  98  98  98  98  98  98  98  98  98  98  98
##  [919]  98  98  98  98  98  98  98  98  98  98  98  98  99  99  99  99  99  99
##  [937]  99  99  99  99  99  99  99  99  99  99  99  99  99  99  99  99  99  99
##  [955]  99  99  99  99  99  99  99  99  99  99 100 100 100 100 100 100 100 100
##  [973] 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100
##  [991] 100 100 100 100 100 100 100 100 100 100

Encontrar número de elementos n, valores máximos y míximos , rango y amplitud del rango de la muestra

n <- length(datos)
n
## [1] 1000
max(datos)
## [1] 100
min(datos)
## [1] 70
rango <- range(datos) 
rango
## [1]  70 100
amplitud <- max(datos) - min(datos)
amplitud
## [1] 30

FORMA HABITUAL PARA AGRUPAR DATOS

¿Cuántos intérvalos se quiere tener? ¿Cuántos grupos?]

* Determinar número de intervalos igual a 5

nointervalos <- 5
rangointervalos <- amplitud / nointervalos
rangointervalos
## [1] 6
print(paste("Los valores de cada grupos van ..."," de ", rangointervalos, " en  ", rangointervalos, " a partir de :", min(datos)))
## [1] "Los valores de cada grupos van ...  de  6  en   6  a partir de : 70"
tabla.intervalos <- transform(table(cut(datos, breaks = 5)))
tabla.intervalos
##       Var1 Freq
## 1  (70,76]  198
## 2  (76,82]  206
## 3  (82,88]  186
## 4  (88,94]  210
## 5 (94,100]  200
plot(tabla.intervalos, main = "¿De cuál intervalo hay más y menos elementos?")

REGLA DE STURGES.

¿De manera mantemática sugiere los intérvalos y las amplitudes de cada intervalo

¿Cuáles intérvalos genra? ¿cual es la amplitud de cada intérvalo?]

Fórmula: K=1+3.322(log N) /* Logaritmo de base 10 */

intervaloSugerido <-1 + 3.3222* (log10(n))
intervaloSugerido
## [1] 10.9666
nointervalos <- nclass.Sturges(datos)
nointervalos
## [1] 11
cut(datos, breaks = nointervalos)
##    [1] (91.8,94.5] (78.2,80.9] (97.3,100]  (83.6,86.4] (83.6,86.4] (91.8,94.5]
##    [7] (86.4,89.1] (72.7,75.5] (75.5,78.2] (86.4,89.1] (97.3,100]  (83.6,86.4]
##   [13] (97.3,100]  (91.8,94.5] (78.2,80.9] (86.4,89.1] (70,72.7]   (86.4,89.1]
##   [19] (94.5,97.3] (94.5,97.3] (75.5,78.2] (89.1,91.8] (72.7,75.5] (78.2,80.9]
##   [25] (94.5,97.3] (72.7,75.5] (72.7,75.5] (89.1,91.8] (70,72.7]   (70,72.7]  
##   [31] (97.3,100]  (89.1,91.8] (94.5,97.3] (91.8,94.5] (94.5,97.3] (75.5,78.2]
##   [37] (91.8,94.5] (86.4,89.1] (94.5,97.3] (86.4,89.1] (72.7,75.5] (75.5,78.2]
##   [43] (97.3,100]  (94.5,97.3] (97.3,100]  (70,72.7]   (80.9,83.6] (89.1,91.8]
##   [49] (70,72.7]   (91.8,94.5] (72.7,75.5] (91.8,94.5] (89.1,91.8] (97.3,100] 
##   [55] (78.2,80.9] (97.3,100]  (80.9,83.6] (91.8,94.5] (94.5,97.3] (72.7,75.5]
##   [61] (86.4,89.1] (86.4,89.1] (70,72.7]   (94.5,97.3] (70,72.7]   (75.5,78.2]
##   [67] (91.8,94.5] (70,72.7]   (94.5,97.3] (83.6,86.4] (97.3,100]  (72.7,75.5]
##   [73] (70,72.7]   (78.2,80.9] (91.8,94.5] (70,72.7]   (86.4,89.1] (86.4,89.1]
##   [79] (80.9,83.6] (70,72.7]   (75.5,78.2] (94.5,97.3] (72.7,75.5] (83.6,86.4]
##   [85] (83.6,86.4] (91.8,94.5] (80.9,83.6] (97.3,100]  (80.9,83.6] (83.6,86.4]
##   [91] (75.5,78.2] (75.5,78.2] (94.5,97.3] (75.5,78.2] (94.5,97.3] (78.2,80.9]
##   [97] (89.1,91.8] (86.4,89.1] (70,72.7]   (86.4,89.1] (89.1,91.8] (75.5,78.2]
##  [103] (89.1,91.8] (78.2,80.9] (83.6,86.4] (83.6,86.4] (91.8,94.5] (94.5,97.3]
##  [109] (75.5,78.2] (78.2,80.9] (72.7,75.5] (72.7,75.5] (89.1,91.8] (86.4,89.1]
##  [115] (97.3,100]  (80.9,83.6] (72.7,75.5] (91.8,94.5] (83.6,86.4] (91.8,94.5]
##  [121] (83.6,86.4] (97.3,100]  (80.9,83.6] (70,72.7]   (97.3,100]  (86.4,89.1]
##  [127] (94.5,97.3] (70,72.7]   (94.5,97.3] (91.8,94.5] (70,72.7]   (94.5,97.3]
##  [133] (78.2,80.9] (80.9,83.6] (83.6,86.4] (97.3,100]  (75.5,78.2] (91.8,94.5]
##  [139] (86.4,89.1] (72.7,75.5] (75.5,78.2] (80.9,83.6] (83.6,86.4] (72.7,75.5]
##  [145] (80.9,83.6] (83.6,86.4] (72.7,75.5] (89.1,91.8] (75.5,78.2] (83.6,86.4]
##  [151] (89.1,91.8] (94.5,97.3] (78.2,80.9] (91.8,94.5] (97.3,100]  (80.9,83.6]
##  [157] (83.6,86.4] (86.4,89.1] (86.4,89.1] (75.5,78.2] (72.7,75.5] (80.9,83.6]
##  [163] (75.5,78.2] (78.2,80.9] (91.8,94.5] (97.3,100]  (89.1,91.8] (86.4,89.1]
##  [169] (94.5,97.3] (80.9,83.6] (86.4,89.1] (89.1,91.8] (91.8,94.5] (70,72.7]  
##  [175] (70,72.7]   (78.2,80.9] (72.7,75.5] (80.9,83.6] (80.9,83.6] (75.5,78.2]
##  [181] (94.5,97.3] (80.9,83.6] (83.6,86.4] (86.4,89.1] (89.1,91.8] (70,72.7]  
##  [187] (89.1,91.8] (70,72.7]   (72.7,75.5] (86.4,89.1] (75.5,78.2] (94.5,97.3]
##  [193] (94.5,97.3] (83.6,86.4] (91.8,94.5] (75.5,78.2] (83.6,86.4] (91.8,94.5]
##  [199] (80.9,83.6] (80.9,83.6] (70,72.7]   (94.5,97.3] (89.1,91.8] (89.1,91.8]
##  [205] (83.6,86.4] (86.4,89.1] (83.6,86.4] (91.8,94.5] (70,72.7]   (86.4,89.1]
##  [211] (89.1,91.8] (72.7,75.5] (83.6,86.4] (72.7,75.5] (94.5,97.3] (80.9,83.6]
##  [217] (91.8,94.5] (91.8,94.5] (75.5,78.2] (80.9,83.6] (70,72.7]   (91.8,94.5]
##  [223] (83.6,86.4] (80.9,83.6] (72.7,75.5] (70,72.7]   (91.8,94.5] (94.5,97.3]
##  [229] (75.5,78.2] (83.6,86.4] (89.1,91.8] (83.6,86.4] (78.2,80.9] (86.4,89.1]
##  [235] (75.5,78.2] (70,72.7]   (78.2,80.9] (94.5,97.3] (94.5,97.3] (72.7,75.5]
##  [241] (78.2,80.9] (75.5,78.2] (72.7,75.5] (80.9,83.6] (83.6,86.4] (86.4,89.1]
##  [247] (91.8,94.5] (89.1,91.8] (70,72.7]   (86.4,89.1] (78.2,80.9] (80.9,83.6]
##  [253] (91.8,94.5] (83.6,86.4] (94.5,97.3] (80.9,83.6] (78.2,80.9] (80.9,83.6]
##  [259] (86.4,89.1] (75.5,78.2] (75.5,78.2] (80.9,83.6] (94.5,97.3] (94.5,97.3]
##  [265] (83.6,86.4] (97.3,100]  (80.9,83.6] (86.4,89.1] (86.4,89.1] (83.6,86.4]
##  [271] (89.1,91.8] (83.6,86.4] (94.5,97.3] (94.5,97.3] (75.5,78.2] (70,72.7]  
##  [277] (86.4,89.1] (83.6,86.4] (78.2,80.9] (80.9,83.6] (94.5,97.3] (97.3,100] 
##  [283] (86.4,89.1] (83.6,86.4] (83.6,86.4] (75.5,78.2] (91.8,94.5] (97.3,100] 
##  [289] (91.8,94.5] (75.5,78.2] (80.9,83.6] (80.9,83.6] (72.7,75.5] (83.6,86.4]
##  [295] (94.5,97.3] (94.5,97.3] (80.9,83.6] (70,72.7]   (89.1,91.8] (72.7,75.5]
##  [301] (80.9,83.6] (83.6,86.4] (94.5,97.3] (94.5,97.3] (75.5,78.2] (72.7,75.5]
##  [307] (83.6,86.4] (80.9,83.6] (91.8,94.5] (94.5,97.3] (72.7,75.5] (80.9,83.6]
##  [313] (83.6,86.4] (80.9,83.6] (91.8,94.5] (94.5,97.3] (91.8,94.5] (72.7,75.5]
##  [319] (83.6,86.4] (91.8,94.5] (94.5,97.3] (83.6,86.4] (94.5,97.3] (91.8,94.5]
##  [325] (72.7,75.5] (91.8,94.5] (91.8,94.5] (89.1,91.8] (75.5,78.2] (86.4,89.1]
##  [331] (89.1,91.8] (70,72.7]   (97.3,100]  (91.8,94.5] (83.6,86.4] (94.5,97.3]
##  [337] (75.5,78.2] (86.4,89.1] (78.2,80.9] (72.7,75.5] (70,72.7]   (80.9,83.6]
##  [343] (91.8,94.5] (89.1,91.8] (86.4,89.1] (94.5,97.3] (97.3,100]  (86.4,89.1]
##  [349] (97.3,100]  (86.4,89.1] (83.6,86.4] (70,72.7]   (94.5,97.3] (94.5,97.3]
##  [355] (91.8,94.5] (70,72.7]   (80.9,83.6] (80.9,83.6] (91.8,94.5] (78.2,80.9]
##  [361] (78.2,80.9] (80.9,83.6] (91.8,94.5] (94.5,97.3] (86.4,89.1] (78.2,80.9]
##  [367] (80.9,83.6] (75.5,78.2] (83.6,86.4] (75.5,78.2] (75.5,78.2] (86.4,89.1]
##  [373] (83.6,86.4] (78.2,80.9] (91.8,94.5] (78.2,80.9] (80.9,83.6] (89.1,91.8]
##  [379] (94.5,97.3] (75.5,78.2] (83.6,86.4] (70,72.7]   (89.1,91.8] (91.8,94.5]
##  [385] (97.3,100]  (94.5,97.3] (94.5,97.3] (80.9,83.6] (89.1,91.8] (91.8,94.5]
##  [391] (78.2,80.9] (70,72.7]   (72.7,75.5] (75.5,78.2] (80.9,83.6] (78.2,80.9]
##  [397] (97.3,100]  (86.4,89.1] (94.5,97.3] (86.4,89.1] (97.3,100]  (75.5,78.2]
##  [403] (80.9,83.6] (94.5,97.3] (97.3,100]  (86.4,89.1] (80.9,83.6] (89.1,91.8]
##  [409] (75.5,78.2] (80.9,83.6] (72.7,75.5] (83.6,86.4] (91.8,94.5] (94.5,97.3]
##  [415] (75.5,78.2] (89.1,91.8] (89.1,91.8] (72.7,75.5] (83.6,86.4] (70,72.7]  
##  [421] (80.9,83.6] (72.7,75.5] (78.2,80.9] (89.1,91.8] (91.8,94.5] (83.6,86.4]
##  [427] (91.8,94.5] (86.4,89.1] (94.5,97.3] (75.5,78.2] (86.4,89.1] (70,72.7]  
##  [433] (83.6,86.4] (72.7,75.5] (91.8,94.5] (78.2,80.9] (97.3,100]  (70,72.7]  
##  [439] (83.6,86.4] (70,72.7]   (86.4,89.1] (75.5,78.2] (70,72.7]   (75.5,78.2]
##  [445] (72.7,75.5] (86.4,89.1] (89.1,91.8] (97.3,100]  (97.3,100]  (72.7,75.5]
##  [451] (83.6,86.4] (80.9,83.6] (75.5,78.2] (83.6,86.4] (75.5,78.2] (70,72.7]  
##  [457] (75.5,78.2] (86.4,89.1] (78.2,80.9] (80.9,83.6] (91.8,94.5] (97.3,100] 
##  [463] (70,72.7]   (83.6,86.4] (75.5,78.2] (80.9,83.6] (72.7,75.5] (70,72.7]  
##  [469] (86.4,89.1] (75.5,78.2] (91.8,94.5] (89.1,91.8] (72.7,75.5] (75.5,78.2]
##  [475] (83.6,86.4] (75.5,78.2] (75.5,78.2] (86.4,89.1] (97.3,100]  (80.9,83.6]
##  [481] (86.4,89.1] (91.8,94.5] (94.5,97.3] (80.9,83.6] (72.7,75.5] (83.6,86.4]
##  [487] (86.4,89.1] (89.1,91.8] (70,72.7]   (80.9,83.6] (97.3,100]  (94.5,97.3]
##  [493] (91.8,94.5] (78.2,80.9] (97.3,100]  (70,72.7]   (97.3,100]  (91.8,94.5]
##  [499] (80.9,83.6] (72.7,75.5] (86.4,89.1] (78.2,80.9] (89.1,91.8] (86.4,89.1]
##  [505] (89.1,91.8] (83.6,86.4] (70,72.7]   (80.9,83.6] (97.3,100]  (70,72.7]  
##  [511] (75.5,78.2] (72.7,75.5] (70,72.7]   (91.8,94.5] (86.4,89.1] (89.1,91.8]
##  [517] (89.1,91.8] (94.5,97.3] (97.3,100]  (86.4,89.1] (72.7,75.5] (83.6,86.4]
##  [523] (80.9,83.6] (86.4,89.1] (91.8,94.5] (86.4,89.1] (97.3,100]  (97.3,100] 
##  [529] (72.7,75.5] (78.2,80.9] (94.5,97.3] (94.5,97.3] (80.9,83.6] (72.7,75.5]
##  [535] (94.5,97.3] (80.9,83.6] (97.3,100]  (78.2,80.9] (91.8,94.5] (80.9,83.6]
##  [541] (78.2,80.9] (97.3,100]  (78.2,80.9] (86.4,89.1] (83.6,86.4] (75.5,78.2]
##  [547] (86.4,89.1] (75.5,78.2] (91.8,94.5] (91.8,94.5] (89.1,91.8] (86.4,89.1]
##  [553] (91.8,94.5] (97.3,100]  (78.2,80.9] (70,72.7]   (86.4,89.1] (97.3,100] 
##  [559] (83.6,86.4] (91.8,94.5] (83.6,86.4] (97.3,100]  (72.7,75.5] (91.8,94.5]
##  [565] (70,72.7]   (97.3,100]  (72.7,75.5] (70,72.7]   (78.2,80.9] (97.3,100] 
##  [571] (86.4,89.1] (80.9,83.6] (80.9,83.6] (97.3,100]  (83.6,86.4] (78.2,80.9]
##  [577] (75.5,78.2] (83.6,86.4] (72.7,75.5] (72.7,75.5] (97.3,100]  (97.3,100] 
##  [583] (97.3,100]  (72.7,75.5] (83.6,86.4] (78.2,80.9] (94.5,97.3] (97.3,100] 
##  [589] (97.3,100]  (89.1,91.8] (80.9,83.6] (86.4,89.1] (78.2,80.9] (86.4,89.1]
##  [595] (97.3,100]  (78.2,80.9] (89.1,91.8] (78.2,80.9] (80.9,83.6] (78.2,80.9]
##  [601] (80.9,83.6] (72.7,75.5] (94.5,97.3] (75.5,78.2] (83.6,86.4] (91.8,94.5]
##  [607] (91.8,94.5] (72.7,75.5] (94.5,97.3] (72.7,75.5] (78.2,80.9] (78.2,80.9]
##  [613] (70,72.7]   (91.8,94.5] (80.9,83.6] (91.8,94.5] (94.5,97.3] (78.2,80.9]
##  [619] (70,72.7]   (86.4,89.1] (91.8,94.5] (75.5,78.2] (86.4,89.1] (89.1,91.8]
##  [625] (72.7,75.5] (86.4,89.1] (75.5,78.2] (94.5,97.3] (80.9,83.6] (72.7,75.5]
##  [631] (83.6,86.4] (97.3,100]  (70,72.7]   (80.9,83.6] (80.9,83.6] (97.3,100] 
##  [637] (94.5,97.3] (91.8,94.5] (91.8,94.5] (91.8,94.5] (80.9,83.6] (83.6,86.4]
##  [643] (89.1,91.8] (94.5,97.3] (75.5,78.2] (80.9,83.6] (94.5,97.3] (86.4,89.1]
##  [649] (86.4,89.1] (86.4,89.1] (75.5,78.2] (75.5,78.2] (91.8,94.5] (91.8,94.5]
##  [655] (78.2,80.9] (80.9,83.6] (78.2,80.9] (80.9,83.6] (89.1,91.8] (91.8,94.5]
##  [661] (89.1,91.8] (72.7,75.5] (70,72.7]   (89.1,91.8] (97.3,100]  (78.2,80.9]
##  [667] (70,72.7]   (72.7,75.5] (70,72.7]   (80.9,83.6] (86.4,89.1] (86.4,89.1]
##  [673] (86.4,89.1] (78.2,80.9] (78.2,80.9] (97.3,100]  (78.2,80.9] (97.3,100] 
##  [679] (91.8,94.5] (80.9,83.6] (80.9,83.6] (78.2,80.9] (91.8,94.5] (94.5,97.3]
##  [685] (70,72.7]   (97.3,100]  (78.2,80.9] (94.5,97.3] (94.5,97.3] (97.3,100] 
##  [691] (83.6,86.4] (80.9,83.6] (83.6,86.4] (91.8,94.5] (72.7,75.5] (75.5,78.2]
##  [697] (94.5,97.3] (91.8,94.5] (94.5,97.3] (80.9,83.6] (91.8,94.5] (86.4,89.1]
##  [703] (89.1,91.8] (94.5,97.3] (78.2,80.9] (78.2,80.9] (75.5,78.2] (72.7,75.5]
##  [709] (70,72.7]   (97.3,100]  (97.3,100]  (75.5,78.2] (86.4,89.1] (80.9,83.6]
##  [715] (97.3,100]  (86.4,89.1] (97.3,100]  (94.5,97.3] (75.5,78.2] (75.5,78.2]
##  [721] (94.5,97.3] (91.8,94.5] (80.9,83.6] (83.6,86.4] (70,72.7]   (78.2,80.9]
##  [727] (91.8,94.5] (83.6,86.4] (91.8,94.5] (97.3,100]  (86.4,89.1] (89.1,91.8]
##  [733] (94.5,97.3] (80.9,83.6] (83.6,86.4] (75.5,78.2] (72.7,75.5] (70,72.7]  
##  [739] (80.9,83.6] (72.7,75.5] (75.5,78.2] (89.1,91.8] (70,72.7]   (86.4,89.1]
##  [745] (72.7,75.5] (78.2,80.9] (86.4,89.1] (89.1,91.8] (94.5,97.3] (72.7,75.5]
##  [751] (78.2,80.9] (94.5,97.3] (94.5,97.3] (97.3,100]  (94.5,97.3] (80.9,83.6]
##  [757] (80.9,83.6] (83.6,86.4] (97.3,100]  (75.5,78.2] (86.4,89.1] (89.1,91.8]
##  [763] (83.6,86.4] (72.7,75.5] (75.5,78.2] (70,72.7]   (97.3,100]  (70,72.7]  
##  [769] (94.5,97.3] (91.8,94.5] (83.6,86.4] (83.6,86.4] (86.4,89.1] (75.5,78.2]
##  [775] (83.6,86.4] (89.1,91.8] (75.5,78.2] (86.4,89.1] (97.3,100]  (97.3,100] 
##  [781] (72.7,75.5] (89.1,91.8] (97.3,100]  (72.7,75.5] (75.5,78.2] (70,72.7]  
##  [787] (83.6,86.4] (83.6,86.4] (72.7,75.5] (89.1,91.8] (75.5,78.2] (89.1,91.8]
##  [793] (83.6,86.4] (80.9,83.6] (89.1,91.8] (78.2,80.9] (89.1,91.8] (94.5,97.3]
##  [799] (72.7,75.5] (75.5,78.2] (75.5,78.2] (75.5,78.2] (80.9,83.6] (91.8,94.5]
##  [805] (72.7,75.5] (94.5,97.3] (97.3,100]  (75.5,78.2] (91.8,94.5] (72.7,75.5]
##  [811] (97.3,100]  (83.6,86.4] (89.1,91.8] (83.6,86.4] (89.1,91.8] (83.6,86.4]
##  [817] (91.8,94.5] (78.2,80.9] (75.5,78.2] (97.3,100]  (83.6,86.4] (70,72.7]  
##  [823] (97.3,100]  (83.6,86.4] (75.5,78.2] (78.2,80.9] (70,72.7]   (83.6,86.4]
##  [829] (70,72.7]   (94.5,97.3] (94.5,97.3] (83.6,86.4] (80.9,83.6] (89.1,91.8]
##  [835] (97.3,100]  (80.9,83.6] (97.3,100]  (80.9,83.6] (86.4,89.1] (72.7,75.5]
##  [841] (78.2,80.9] (89.1,91.8] (80.9,83.6] (89.1,91.8] (89.1,91.8] (80.9,83.6]
##  [847] (72.7,75.5] (70,72.7]   (70,72.7]   (72.7,75.5] (94.5,97.3] (72.7,75.5]
##  [853] (94.5,97.3] (89.1,91.8] (94.5,97.3] (75.5,78.2] (72.7,75.5] (97.3,100] 
##  [859] (80.9,83.6] (97.3,100]  (70,72.7]   (89.1,91.8] (72.7,75.5] (70,72.7]  
##  [865] (89.1,91.8] (94.5,97.3] (83.6,86.4] (83.6,86.4] (78.2,80.9] (75.5,78.2]
##  [871] (78.2,80.9] (75.5,78.2] (75.5,78.2] (72.7,75.5] (86.4,89.1] (94.5,97.3]
##  [877] (86.4,89.1] (97.3,100]  (80.9,83.6] (80.9,83.6] (91.8,94.5] (80.9,83.6]
##  [883] (83.6,86.4] (78.2,80.9] (75.5,78.2] (91.8,94.5] (70,72.7]   (83.6,86.4]
##  [889] (75.5,78.2] (97.3,100]  (91.8,94.5] (70,72.7]   (97.3,100]  (97.3,100] 
##  [895] (80.9,83.6] (97.3,100]  (83.6,86.4] (86.4,89.1] (70,72.7]   (97.3,100] 
##  [901] (97.3,100]  (80.9,83.6] (91.8,94.5] (91.8,94.5] (97.3,100]  (89.1,91.8]
##  [907] (75.5,78.2] (97.3,100]  (94.5,97.3] (89.1,91.8] (83.6,86.4] (97.3,100] 
##  [913] (86.4,89.1] (72.7,75.5] (78.2,80.9] (72.7,75.5] (78.2,80.9] (83.6,86.4]
##  [919] (75.5,78.2] (75.5,78.2] (70,72.7]   (70,72.7]   (72.7,75.5] (72.7,75.5]
##  [925] (94.5,97.3] (97.3,100]  (70,72.7]   (97.3,100]  (70,72.7]   (89.1,91.8]
##  [931] (80.9,83.6] (72.7,75.5] (86.4,89.1] (89.1,91.8] (83.6,86.4] (86.4,89.1]
##  [937] (70,72.7]   (97.3,100]  (97.3,100]  (97.3,100]  (94.5,97.3] (75.5,78.2]
##  [943] (75.5,78.2] (72.7,75.5] (97.3,100]  (97.3,100]  (80.9,83.6] (97.3,100] 
##  [949] (72.7,75.5] (89.1,91.8] (94.5,97.3] (86.4,89.1] (94.5,97.3] (97.3,100] 
##  [955] (97.3,100]  (91.8,94.5] (80.9,83.6] (75.5,78.2] (97.3,100]  (80.9,83.6]
##  [961] (70,72.7]   (91.8,94.5] (83.6,86.4] (94.5,97.3] (91.8,94.5] (75.5,78.2]
##  [967] (78.2,80.9] (86.4,89.1] (75.5,78.2] (75.5,78.2] (91.8,94.5] (72.7,75.5]
##  [973] (78.2,80.9] (91.8,94.5] (97.3,100]  (94.5,97.3] (86.4,89.1] (70,72.7]  
##  [979] (75.5,78.2] (91.8,94.5] (97.3,100]  (83.6,86.4] (86.4,89.1] (83.6,86.4]
##  [985] (70,72.7]   (83.6,86.4] (97.3,100]  (86.4,89.1] (86.4,89.1] (97.3,100] 
##  [991] (83.6,86.4] (75.5,78.2] (75.5,78.2] (75.5,78.2] (86.4,89.1] (86.4,89.1]
##  [997] (91.8,94.5] (70,72.7]   (72.7,75.5] (91.8,94.5]
## 11 Levels: (70,72.7] (72.7,75.5] (75.5,78.2] (78.2,80.9] ... (97.3,100]
tabla.intervalos <- transform(table(cut(datos, breaks = nointervalos)))
tabla.intervalos
##           Var1 Freq
## 1    (70,72.7]   82
## 2  (72.7,75.5]   86
## 3  (75.5,78.2]   98
## 4  (78.2,80.9]   70
## 5  (80.9,83.6]  100
## 6  (83.6,86.4]   98
## 7  (86.4,89.1]   96
## 8  (89.1,91.8]   72
## 9  (91.8,94.5]   98
## 10 (94.5,97.3]   97
## 11  (97.3,100]  103
pie(tabla.intervalos$Freq, labels = paste(tabla.intervalos$Var1, " - ", tabla.intervalos$Freq), main = "¿De cuál intervalo hay más y menos elementos?. Sturges")