yes

Datos

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

Ordenar datos y mostrar

muestraOrdenar <- sort(muestra)
muestraOrdenar
##    [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  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  72  72  72  72  72  72  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  73  73  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  75
##  [145]  75  75  75  75  75  75  75  75  75  75  75  75  75  75  75  75  75  75
##  [163]  75  75  75  75  75  75  75  75  75  75  75  75  75  75  75  76  76  76
##  [181]  76  76  76  76  76  76  76  76  76  76  76  76  76  76  76  76  76  76
##  [199]  76  76  76  76  76  76  76  76  76  76  77  77  77  77  77  77  77  77
##  [217]  77  77  77  77  77  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  78  78  78
##  [253]  78  78  78  78  78  78  78  78  78  78  78  78  78  78  78  78  78  78
##  [271]  78  78  78  78  78  78  78  78  78  78  78  78  78  79  79  79  79  79
##  [289]  79  79  79  79  79  79  79  79  79  79  79  79  79  79  79  79  79  80
##  [307]  80  80  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  81  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  82  82  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  82  82  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  83  83  83  83  83  83  83  83  83  83  83  83  83  84
##  [451]  84  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  85  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  86  86  86  86  86  86  86  86  86  86
##  [559]  87  87  87  87  87  87  87  87  87  87  87  87  87  87  87  87  87  87
##  [577]  87  87  87  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  89  89  89  89  89  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  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]  91  91  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  92  92
##  [739]  92  92  92  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  94  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  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  95  95  95  95  95  95  95  95  95  95  95  95  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  96  96  96  96  96  96  96  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  97  97  97
##  [901]  97  97  97  97  97  97  97  97  97  97  97  97  97  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  98  98  98  98  98  98  98  98  99  99  99  99  99  99  99  99  99
##  [955]  99  99  99  99  99  99  99  99  99  99  99  99  99  99  99 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ínimos, rango y amplitud del rango de la muestra

n <- length(muestra)
n
## [1] 1000
max(muestra)
## [1] 100
rango <- range(muestra) #Valores minimo y maximo
rango
## [1]  70 100
amplitud <- diff(rango) #amplitud del rango. Tambien es max(muestra) - min (muestra)
amplitud
## [1] 30

Determinar datos igual a 5

numeroIntervalo <-5 #Numero de intervalos que se desea
rangoIntervalo <- amplitud / numeroIntervalo
rangoIntervalo
## [1] 6
print(paste("Los valores de cada grupos van ..."," de ", rangoIntervalo, " en  ", rangoIntervalo, " a partir de :", min(muestra)))
## [1] "Los valores de cada grupos van ...  de  6  en   6  a partir de : 70"

Tabla de frecuencia de datos agrupados

tablaIntervalo <- transform(table(cut(muestra, breaks = 5)))
tablaIntervalo
##       Var1 Freq
## 1  (70,76]  208
## 2  (76,82]  198
## 3  (82,88]  202
## 4  (88,94]  197
## 5 (94,100]  195

Grafica tabla de frecuencia

plot(tablaIntervalo, main = "¿De cual intervalo hay mas y menos elementos?")

Regla de Sturges

Formula: K=1+3.322(logN)/Logaritmo de base 10/

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

### Comentario

# Al parecer esto sirve para contavilizar grupos de datos.