muestra <- sample(70:100, 1000, replace = TRUE)
muestraord <- sort(muestra)
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 70 70 70 70 70 70 70 70 70 70 70 70
## [37] 70 70 70 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71
## [55] 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71
## [73] 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72
## [91] 72 72 72 72 72 72 72 72 72 72 72 72 73 73 73 73 73 73
## [109] 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73
## [127] 73 73 73 73 73 74 74 74 74 74 74 74 74 74 74 74 74 74
## [145] 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74
## [163] 74 74 74 74 74 74 74 74 75 75 75 75 75 75 75 75 75 75
## [181] 75 75 75 75 75 75 75 75 75 75 75 75 76 76 76 76 76 76
## [199] 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76
## [217] 76 76 76 76 76 77 77 77 77 77 77 77 77 77 77 77 77 77
## [235] 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77
## [253] 77 77 77 77 77 77 77 77 77 78 78 78 78 78 78 78 78 78
## [271] 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78
## [289] 78 78 78 78 78 78 78 78 78 78 78 78 78 78 79 79 79 79
## [307] 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79 79
## [325] 79 79 79 79 79 79 79 79 80 80 80 80 80 80 80 80 80 80
## [343] 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80
## [361] 80 80 80 80 80 81 81 81 81 81 81 81 81 81 81 81 81 81
## [379] 81 81 81 81 81 81 81 81 81 81 81 81 81 81 81 81 81 82
## [397] 82 82 82 82 82 82 82 82 82 82 82 82 82 82 82 82 82 82
## [415] 82 82 82 82 82 82 82 83 83 83 83 83 83 83 83 83 83 83
## [433] 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83
## [451] 83 84 84 84 84 84 84 84 84 84 84 84 84 84 84 84 84 84
## [469] 84 84 84 84 84 84 84 84 84 84 84 84 85 85 85 85 85 85
## [487] 85 85 85 85 85 85 85 85 85 85 85 85 85 85 85 85 85 85
## [505] 85 85 85 85 85 85 85 85 85 85 85 85 86 86 86 86 86 86
## [523] 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86 86
## [541] 86 86 86 86 86 86 86 86 87 87 87 87 87 87 87 87 87 87
## [559] 87 87 87 87 87 87 87 87 87 87 87 87 87 87 87 87 87 87
## [577] 87 87 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88
## [595] 88 88 88 88 88 88 88 88 88 88 88 88 88 88 89 89 89 89
## [613] 89 89 89 89 89 89 89 89 89 89 89 89 89 89 89 89 89 89
## [631] 89 89 89 89 89 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] 90 90 90 90 90 90 90 90 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 92
## [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 92 92 92 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 93 93 93 93 93 93 93 93 93 93
## [775] 93 93 93 93 93 94 94 94 94 94 94 94 94 94 94 94 94 94
## [793] 94 94 94 94 94 94 94 94 94 94 94 94 94 94 94 94 94 94
## [811] 94 94 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 96 96 96 96 96 96 96 96 96 96 96 96
## [865] 96 96 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 98 98 98 98 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 98 98 98 98 98 98
## [937] 98 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 99 99 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
n <- length(muestra)
n
## [1] 1000
max(muestra)
## [1] 100
min(muestra)
## [1] 70
rango <- range(muestra)
rango
## [1] 70 100
amplitud <- diff(rango)
amplitud
## [1] 30
nointervalos <- 5
rangointervalos <- amplitud / nointervalos
rangointervalos
## [1] 6
print(paste("Los valores de cada grupos van ..."," de ", rangointervalos, " en ", rangointervalos, " a partir de :", min(muestra)))
## [1] "Los valores de cada grupos van ... de 6 en 6 a partir de : 70"
tabla.intervalos <- transform(table(cut(muestra, breaks = 5)))
tabla.intervalos
## Var1 Freq
## 1 (70,76] 221
## 2 (76,82] 200
## 3 (82,88] 187
## 4 (88,94] 204
## 5 (94,100] 188
plot(tabla.intervalos, main = "¿De cuál intervalo hay más y menos elementos?")
### Regla de Sturges #### ¿De manera mantematica 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 */
1 + 3.3222* (log10(n))
## [1] 10.9666
nointervalos <- nclass.Sturges(muestra) #redondear a 6
nointervalos
## [1] 11
cut(muestra, breaks = nointervalos) #Cortes de cada intérvalo
## [1] (80.9,83.6] (70,72.7] (70,72.7] (86.4,89.1] (86.4,89.1] (83.6,86.4]
## [7] (70,72.7] (86.4,89.1] (83.6,86.4] (80.9,83.6] (97.3,100] (70,72.7]
## [13] (94.5,97.3] (97.3,100] (91.8,94.5] (89.1,91.8] (75.5,78.2] (83.6,86.4]
## [19] (78.2,80.9] (91.8,94.5] (91.8,94.5] (91.8,94.5] (94.5,97.3] (86.4,89.1]
## [25] (75.5,78.2] (97.3,100] (80.9,83.6] (97.3,100] (72.7,75.5] (89.1,91.8]
## [31] (94.5,97.3] (94.5,97.3] (72.7,75.5] (97.3,100] (97.3,100] (70,72.7]
## [37] (75.5,78.2] (75.5,78.2] (78.2,80.9] (97.3,100] (91.8,94.5] (80.9,83.6]
## [43] (75.5,78.2] (89.1,91.8] (86.4,89.1] (86.4,89.1] (72.7,75.5] (80.9,83.6]
## [49] (75.5,78.2] (97.3,100] (80.9,83.6] (80.9,83.6] (97.3,100] (83.6,86.4]
## [55] (72.7,75.5] (89.1,91.8] (83.6,86.4] (86.4,89.1] (97.3,100] (70,72.7]
## [61] (89.1,91.8] (80.9,83.6] (91.8,94.5] (97.3,100] (80.9,83.6] (89.1,91.8]
## [67] (80.9,83.6] (89.1,91.8] (97.3,100] (91.8,94.5] (94.5,97.3] (70,72.7]
## [73] (97.3,100] (75.5,78.2] (97.3,100] (94.5,97.3] (70,72.7] (75.5,78.2]
## [79] (83.6,86.4] (72.7,75.5] (89.1,91.8] (94.5,97.3] (72.7,75.5] (86.4,89.1]
## [85] (83.6,86.4] (78.2,80.9] (72.7,75.5] (94.5,97.3] (72.7,75.5] (75.5,78.2]
## [91] (72.7,75.5] (97.3,100] (72.7,75.5] (78.2,80.9] (89.1,91.8] (83.6,86.4]
## [97] (94.5,97.3] (94.5,97.3] (78.2,80.9] (86.4,89.1] (75.5,78.2] (70,72.7]
## [103] (80.9,83.6] (70,72.7] (86.4,89.1] (89.1,91.8] (91.8,94.5] (83.6,86.4]
## [109] (83.6,86.4] (86.4,89.1] (78.2,80.9] (91.8,94.5] (86.4,89.1] (72.7,75.5]
## [115] (72.7,75.5] (94.5,97.3] (75.5,78.2] (97.3,100] (94.5,97.3] (72.7,75.5]
## [121] (72.7,75.5] (91.8,94.5] (94.5,97.3] (72.7,75.5] (86.4,89.1] (89.1,91.8]
## [127] (86.4,89.1] (75.5,78.2] (97.3,100] (75.5,78.2] (72.7,75.5] (83.6,86.4]
## [133] (97.3,100] (97.3,100] (94.5,97.3] (89.1,91.8] (97.3,100] (80.9,83.6]
## [139] (83.6,86.4] (75.5,78.2] (89.1,91.8] (86.4,89.1] (91.8,94.5] (80.9,83.6]
## [145] (70,72.7] (80.9,83.6] (94.5,97.3] (94.5,97.3] (75.5,78.2] (91.8,94.5]
## [151] (94.5,97.3] (78.2,80.9] (75.5,78.2] (78.2,80.9] (97.3,100] (91.8,94.5]
## [157] (75.5,78.2] (70,72.7] (78.2,80.9] (72.7,75.5] (80.9,83.6] (70,72.7]
## [163] (80.9,83.6] (72.7,75.5] (89.1,91.8] (70,72.7] (70,72.7] (91.8,94.5]
## [169] (72.7,75.5] (97.3,100] (80.9,83.6] (91.8,94.5] (80.9,83.6] (75.5,78.2]
## [175] (78.2,80.9] (83.6,86.4] (86.4,89.1] (83.6,86.4] (91.8,94.5] (78.2,80.9]
## [181] (94.5,97.3] (97.3,100] (91.8,94.5] (97.3,100] (97.3,100] (80.9,83.6]
## [187] (75.5,78.2] (83.6,86.4] (72.7,75.5] (72.7,75.5] (70,72.7] (80.9,83.6]
## [193] (75.5,78.2] (91.8,94.5] (75.5,78.2] (75.5,78.2] (70,72.7] (97.3,100]
## [199] (86.4,89.1] (83.6,86.4] (78.2,80.9] (86.4,89.1] (78.2,80.9] (72.7,75.5]
## [205] (75.5,78.2] (97.3,100] (91.8,94.5] (72.7,75.5] (97.3,100] (75.5,78.2]
## [211] (91.8,94.5] (80.9,83.6] (80.9,83.6] (75.5,78.2] (75.5,78.2] (91.8,94.5]
## [217] (80.9,83.6] (72.7,75.5] (75.5,78.2] (70,72.7] (70,72.7] (91.8,94.5]
## [223] (86.4,89.1] (80.9,83.6] (80.9,83.6] (70,72.7] (78.2,80.9] (91.8,94.5]
## [229] (72.7,75.5] (86.4,89.1] (89.1,91.8] (80.9,83.6] (91.8,94.5] (75.5,78.2]
## [235] (97.3,100] (75.5,78.2] (89.1,91.8] (83.6,86.4] (75.5,78.2] (91.8,94.5]
## [241] (91.8,94.5] (86.4,89.1] (86.4,89.1] (83.6,86.4] (91.8,94.5] (75.5,78.2]
## [247] (83.6,86.4] (83.6,86.4] (72.7,75.5] (70,72.7] (86.4,89.1] (70,72.7]
## [253] (70,72.7] (80.9,83.6] (83.6,86.4] (80.9,83.6] (80.9,83.6] (80.9,83.6]
## [259] (78.2,80.9] (97.3,100] (75.5,78.2] (75.5,78.2] (72.7,75.5] (72.7,75.5]
## [265] (94.5,97.3] (91.8,94.5] (72.7,75.5] (97.3,100] (80.9,83.6] (70,72.7]
## [271] (89.1,91.8] (83.6,86.4] (89.1,91.8] (86.4,89.1] (86.4,89.1] (70,72.7]
## [277] (75.5,78.2] (75.5,78.2] (97.3,100] (78.2,80.9] (72.7,75.5] (91.8,94.5]
## [283] (89.1,91.8] (72.7,75.5] (83.6,86.4] (75.5,78.2] (72.7,75.5] (75.5,78.2]
## [289] (80.9,83.6] (97.3,100] (83.6,86.4] (70,72.7] (97.3,100] (80.9,83.6]
## [295] (89.1,91.8] (78.2,80.9] (97.3,100] (72.7,75.5] (78.2,80.9] (72.7,75.5]
## [301] (78.2,80.9] (91.8,94.5] (94.5,97.3] (94.5,97.3] (86.4,89.1] (97.3,100]
## [307] (97.3,100] (80.9,83.6] (94.5,97.3] (72.7,75.5] (78.2,80.9] (83.6,86.4]
## [313] (72.7,75.5] (89.1,91.8] (94.5,97.3] (86.4,89.1] (80.9,83.6] (83.6,86.4]
## [319] (83.6,86.4] (91.8,94.5] (75.5,78.2] (70,72.7] (80.9,83.6] (86.4,89.1]
## [325] (78.2,80.9] (86.4,89.1] (75.5,78.2] (83.6,86.4] (75.5,78.2] (83.6,86.4]
## [331] (89.1,91.8] (97.3,100] (80.9,83.6] (70,72.7] (75.5,78.2] (70,72.7]
## [337] (86.4,89.1] (83.6,86.4] (75.5,78.2] (89.1,91.8] (86.4,89.1] (91.8,94.5]
## [343] (80.9,83.6] (86.4,89.1] (97.3,100] (86.4,89.1] (89.1,91.8] (70,72.7]
## [349] (80.9,83.6] (75.5,78.2] (70,72.7] (80.9,83.6] (94.5,97.3] (78.2,80.9]
## [355] (94.5,97.3] (86.4,89.1] (72.7,75.5] (80.9,83.6] (86.4,89.1] (75.5,78.2]
## [361] (72.7,75.5] (72.7,75.5] (83.6,86.4] (75.5,78.2] (89.1,91.8] (97.3,100]
## [367] (83.6,86.4] (72.7,75.5] (89.1,91.8] (94.5,97.3] (89.1,91.8] (75.5,78.2]
## [373] (75.5,78.2] (94.5,97.3] (72.7,75.5] (91.8,94.5] (75.5,78.2] (97.3,100]
## [379] (70,72.7] (78.2,80.9] (83.6,86.4] (86.4,89.1] (89.1,91.8] (86.4,89.1]
## [385] (86.4,89.1] (83.6,86.4] (80.9,83.6] (97.3,100] (91.8,94.5] (70,72.7]
## [391] (97.3,100] (97.3,100] (75.5,78.2] (91.8,94.5] (70,72.7] (75.5,78.2]
## [397] (86.4,89.1] (70,72.7] (91.8,94.5] (72.7,75.5] (89.1,91.8] (83.6,86.4]
## [403] (91.8,94.5] (83.6,86.4] (83.6,86.4] (72.7,75.5] (70,72.7] (75.5,78.2]
## [409] (75.5,78.2] (72.7,75.5] (80.9,83.6] (89.1,91.8] (72.7,75.5] (89.1,91.8]
## [415] (89.1,91.8] (83.6,86.4] (70,72.7] (89.1,91.8] (89.1,91.8] (91.8,94.5]
## [421] (94.5,97.3] (78.2,80.9] (86.4,89.1] (94.5,97.3] (86.4,89.1] (89.1,91.8]
## [427] (94.5,97.3] (80.9,83.6] (83.6,86.4] (97.3,100] (80.9,83.6] (94.5,97.3]
## [433] (94.5,97.3] (94.5,97.3] (94.5,97.3] (70,72.7] (94.5,97.3] (94.5,97.3]
## [439] (72.7,75.5] (70,72.7] (86.4,89.1] (86.4,89.1] (97.3,100] (70,72.7]
## [445] (91.8,94.5] (75.5,78.2] (75.5,78.2] (72.7,75.5] (72.7,75.5] (86.4,89.1]
## [451] (80.9,83.6] (70,72.7] (91.8,94.5] (80.9,83.6] (91.8,94.5] (83.6,86.4]
## [457] (97.3,100] (78.2,80.9] (94.5,97.3] (83.6,86.4] (86.4,89.1] (72.7,75.5]
## [463] (97.3,100] (89.1,91.8] (75.5,78.2] (78.2,80.9] (86.4,89.1] (72.7,75.5]
## [469] (70,72.7] (72.7,75.5] (70,72.7] (78.2,80.9] (72.7,75.5] (83.6,86.4]
## [475] (70,72.7] (91.8,94.5] (91.8,94.5] (91.8,94.5] (70,72.7] (91.8,94.5]
## [481] (86.4,89.1] (78.2,80.9] (97.3,100] (78.2,80.9] (70,72.7] (70,72.7]
## [487] (80.9,83.6] (97.3,100] (97.3,100] (89.1,91.8] (86.4,89.1] (94.5,97.3]
## [493] (89.1,91.8] (91.8,94.5] (70,72.7] (86.4,89.1] (83.6,86.4] (83.6,86.4]
## [499] (78.2,80.9] (72.7,75.5] (80.9,83.6] (86.4,89.1] (70,72.7] (94.5,97.3]
## [505] (70,72.7] (83.6,86.4] (80.9,83.6] (80.9,83.6] (75.5,78.2] (78.2,80.9]
## [511] (70,72.7] (91.8,94.5] (78.2,80.9] (97.3,100] (97.3,100] (83.6,86.4]
## [517] (80.9,83.6] (91.8,94.5] (91.8,94.5] (70,72.7] (97.3,100] (72.7,75.5]
## [523] (70,72.7] (94.5,97.3] (97.3,100] (78.2,80.9] (83.6,86.4] (91.8,94.5]
## [529] (86.4,89.1] (86.4,89.1] (97.3,100] (83.6,86.4] (80.9,83.6] (91.8,94.5]
## [535] (94.5,97.3] (94.5,97.3] (83.6,86.4] (89.1,91.8] (80.9,83.6] (72.7,75.5]
## [541] (72.7,75.5] (72.7,75.5] (83.6,86.4] (86.4,89.1] (80.9,83.6] (75.5,78.2]
## [547] (97.3,100] (78.2,80.9] (80.9,83.6] (94.5,97.3] (75.5,78.2] (78.2,80.9]
## [553] (97.3,100] (89.1,91.8] (80.9,83.6] (86.4,89.1] (75.5,78.2] (70,72.7]
## [559] (97.3,100] (94.5,97.3] (97.3,100] (70,72.7] (70,72.7] (91.8,94.5]
## [565] (83.6,86.4] (97.3,100] (78.2,80.9] (72.7,75.5] (86.4,89.1] (91.8,94.5]
## [571] (94.5,97.3] (86.4,89.1] (89.1,91.8] (94.5,97.3] (86.4,89.1] (97.3,100]
## [577] (75.5,78.2] (75.5,78.2] (89.1,91.8] (78.2,80.9] (97.3,100] (75.5,78.2]
## [583] (91.8,94.5] (86.4,89.1] (72.7,75.5] (97.3,100] (97.3,100] (89.1,91.8]
## [589] (78.2,80.9] (70,72.7] (83.6,86.4] (83.6,86.4] (75.5,78.2] (94.5,97.3]
## [595] (80.9,83.6] (75.5,78.2] (75.5,78.2] (83.6,86.4] (75.5,78.2] (75.5,78.2]
## [601] (75.5,78.2] (97.3,100] (97.3,100] (94.5,97.3] (86.4,89.1] (94.5,97.3]
## [607] (91.8,94.5] (83.6,86.4] (97.3,100] (91.8,94.5] (72.7,75.5] (86.4,89.1]
## [613] (75.5,78.2] (70,72.7] (91.8,94.5] (72.7,75.5] (83.6,86.4] (70,72.7]
## [619] (94.5,97.3] (91.8,94.5] (89.1,91.8] (75.5,78.2] (78.2,80.9] (78.2,80.9]
## [625] (75.5,78.2] (94.5,97.3] (89.1,91.8] (70,72.7] (94.5,97.3] (86.4,89.1]
## [631] (94.5,97.3] (94.5,97.3] (72.7,75.5] (91.8,94.5] (70,72.7] (86.4,89.1]
## [637] (72.7,75.5] (91.8,94.5] (83.6,86.4] (91.8,94.5] (83.6,86.4] (75.5,78.2]
## [643] (80.9,83.6] (70,72.7] (83.6,86.4] (70,72.7] (78.2,80.9] (89.1,91.8]
## [649] (70,72.7] (75.5,78.2] (70,72.7] (72.7,75.5] (80.9,83.6] (80.9,83.6]
## [655] (83.6,86.4] (70,72.7] (75.5,78.2] (97.3,100] (86.4,89.1] (70,72.7]
## [661] (83.6,86.4] (94.5,97.3] (91.8,94.5] (94.5,97.3] (72.7,75.5] (97.3,100]
## [667] (72.7,75.5] (80.9,83.6] (78.2,80.9] (86.4,89.1] (94.5,97.3] (80.9,83.6]
## [673] (97.3,100] (83.6,86.4] (70,72.7] (72.7,75.5] (72.7,75.5] (72.7,75.5]
## [679] (80.9,83.6] (70,72.7] (94.5,97.3] (86.4,89.1] (70,72.7] (97.3,100]
## [685] (91.8,94.5] (91.8,94.5] (97.3,100] (97.3,100] (80.9,83.6] (70,72.7]
## [691] (80.9,83.6] (83.6,86.4] (75.5,78.2] (91.8,94.5] (94.5,97.3] (83.6,86.4]
## [697] (83.6,86.4] (80.9,83.6] (91.8,94.5] (86.4,89.1] (97.3,100] (75.5,78.2]
## [703] (78.2,80.9] (72.7,75.5] (83.6,86.4] (86.4,89.1] (83.6,86.4] (72.7,75.5]
## [709] (89.1,91.8] (91.8,94.5] (72.7,75.5] (78.2,80.9] (75.5,78.2] (89.1,91.8]
## [715] (75.5,78.2] (97.3,100] (97.3,100] (83.6,86.4] (75.5,78.2] (91.8,94.5]
## [721] (70,72.7] (94.5,97.3] (97.3,100] (83.6,86.4] (91.8,94.5] (94.5,97.3]
## [727] (80.9,83.6] (97.3,100] (91.8,94.5] (97.3,100] (80.9,83.6] (75.5,78.2]
## [733] (83.6,86.4] (70,72.7] (86.4,89.1] (91.8,94.5] (86.4,89.1] (94.5,97.3]
## [739] (89.1,91.8] (86.4,89.1] (89.1,91.8] (70,72.7] (86.4,89.1] (91.8,94.5]
## [745] (75.5,78.2] (75.5,78.2] (91.8,94.5] (72.7,75.5] (72.7,75.5] (70,72.7]
## [751] (75.5,78.2] (89.1,91.8] (89.1,91.8] (91.8,94.5] (94.5,97.3] (80.9,83.6]
## [757] (91.8,94.5] (70,72.7] (91.8,94.5] (80.9,83.6] (89.1,91.8] (94.5,97.3]
## [763] (75.5,78.2] (97.3,100] (72.7,75.5] (75.5,78.2] (91.8,94.5] (70,72.7]
## [769] (97.3,100] (91.8,94.5] (80.9,83.6] (70,72.7] (91.8,94.5] (70,72.7]
## [775] (86.4,89.1] (70,72.7] (70,72.7] (80.9,83.6] (80.9,83.6] (72.7,75.5]
## [781] (72.7,75.5] (80.9,83.6] (70,72.7] (86.4,89.1] (75.5,78.2] (97.3,100]
## [787] (83.6,86.4] (83.6,86.4] (72.7,75.5] (83.6,86.4] (86.4,89.1] (75.5,78.2]
## [793] (86.4,89.1] (78.2,80.9] (70,72.7] (83.6,86.4] (91.8,94.5] (94.5,97.3]
## [799] (80.9,83.6] (78.2,80.9] (75.5,78.2] (72.7,75.5] (97.3,100] (80.9,83.6]
## [805] (72.7,75.5] (72.7,75.5] (89.1,91.8] (94.5,97.3] (75.5,78.2] (91.8,94.5]
## [811] (94.5,97.3] (91.8,94.5] (83.6,86.4] (94.5,97.3] (75.5,78.2] (91.8,94.5]
## [817] (91.8,94.5] (91.8,94.5] (75.5,78.2] (83.6,86.4] (72.7,75.5] (75.5,78.2]
## [823] (89.1,91.8] (83.6,86.4] (97.3,100] (70,72.7] (83.6,86.4] (83.6,86.4]
## [829] (91.8,94.5] (91.8,94.5] (91.8,94.5] (86.4,89.1] (80.9,83.6] (97.3,100]
## [835] (78.2,80.9] (78.2,80.9] (83.6,86.4] (75.5,78.2] (80.9,83.6] (72.7,75.5]
## [841] (83.6,86.4] (70,72.7] (78.2,80.9] (89.1,91.8] (97.3,100] (72.7,75.5]
## [847] (75.5,78.2] (86.4,89.1] (72.7,75.5] (83.6,86.4] (75.5,78.2] (89.1,91.8]
## [853] (78.2,80.9] (97.3,100] (91.8,94.5] (83.6,86.4] (83.6,86.4] (91.8,94.5]
## [859] (75.5,78.2] (91.8,94.5] (75.5,78.2] (97.3,100] (86.4,89.1] (75.5,78.2]
## [865] (70,72.7] (75.5,78.2] (97.3,100] (89.1,91.8] (75.5,78.2] (83.6,86.4]
## [871] (83.6,86.4] (94.5,97.3] (94.5,97.3] (97.3,100] (97.3,100] (72.7,75.5]
## [877] (94.5,97.3] (91.8,94.5] (97.3,100] (89.1,91.8] (70,72.7] (97.3,100]
## [883] (70,72.7] (70,72.7] (97.3,100] (91.8,94.5] (91.8,94.5] (70,72.7]
## [889] (86.4,89.1] (80.9,83.6] (97.3,100] (91.8,94.5] (91.8,94.5] (75.5,78.2]
## [895] (91.8,94.5] (70,72.7] (72.7,75.5] (91.8,94.5] (94.5,97.3] (75.5,78.2]
## [901] (94.5,97.3] (83.6,86.4] (78.2,80.9] (70,72.7] (91.8,94.5] (89.1,91.8]
## [907] (97.3,100] (78.2,80.9] (97.3,100] (89.1,91.8] (80.9,83.6] (83.6,86.4]
## [913] (78.2,80.9] (78.2,80.9] (97.3,100] (78.2,80.9] (86.4,89.1] (78.2,80.9]
## [919] (78.2,80.9] (91.8,94.5] (78.2,80.9] (91.8,94.5] (94.5,97.3] (91.8,94.5]
## [925] (94.5,97.3] (86.4,89.1] (97.3,100] (94.5,97.3] (86.4,89.1] (70,72.7]
## [931] (89.1,91.8] (83.6,86.4] (78.2,80.9] (75.5,78.2] (91.8,94.5] (70,72.7]
## [937] (97.3,100] (97.3,100] (97.3,100] (91.8,94.5] (80.9,83.6] (72.7,75.5]
## [943] (83.6,86.4] (94.5,97.3] (72.7,75.5] (86.4,89.1] (78.2,80.9] (97.3,100]
## [949] (91.8,94.5] (70,72.7] (83.6,86.4] (83.6,86.4] (75.5,78.2] (83.6,86.4]
## [955] (89.1,91.8] (86.4,89.1] (75.5,78.2] (94.5,97.3] (70,72.7] (83.6,86.4]
## [961] (86.4,89.1] (91.8,94.5] (83.6,86.4] (86.4,89.1] (70,72.7] (78.2,80.9]
## [967] (80.9,83.6] (75.5,78.2] (91.8,94.5] (83.6,86.4] (75.5,78.2] (91.8,94.5]
## [973] (75.5,78.2] (91.8,94.5] (75.5,78.2] (97.3,100] (91.8,94.5] (78.2,80.9]
## [979] (94.5,97.3] (72.7,75.5] (78.2,80.9] (91.8,94.5] (80.9,83.6] (89.1,91.8]
## [985] (94.5,97.3] (80.9,83.6] (70,72.7] (70,72.7] (94.5,97.3] (75.5,78.2]
## [991] (97.3,100] (70,72.7] (70,72.7] (97.3,100] (83.6,86.4] (70,72.7]
## [997] (89.1,91.8] (86.4,89.1] (80.9,83.6] (89.1,91.8]
## 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(muestra, breaks = nointervalos)))
tabla.intervalos
## Var1 Freq
## 1 (70,72.7] 102
## 2 (72.7,75.5] 90
## 3 (75.5,78.2] 110
## 4 (78.2,80.9] 63
## 5 (80.9,83.6] 86
## 6 (83.6,86.4] 97
## 7 (86.4,89.1] 87
## 8 (89.1,91.8] 66
## 9 (91.8,94.5] 111
## 10 (94.5,97.3] 81
## 11 (97.3,100] 107
pie(tabla.intervalos$Freq, labels = paste(tabla.intervalos$Var1, " - ", tabla.intervalos$Freq), main = "¿De cuál intervalo hay más y menos elementos?. Sturges")