Datos Agrupados

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

Ordenar datos

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  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  71  71  71  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  72  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  74  74  74  74  74  74  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  75  75  75
##  [181]  75  75  75  75  75  75  75  76  76  76  76  76  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  76  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  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  78  78  78  78  78
##  [289]  78  78  79  79  79  79  79  79  79  79  79  79  79  79  79  79  79  79
##  [307]  79  79  79  79  79  79  79  79  79  79  79  79  79  80  80  80  80  80
##  [325]  80  80  80  80  80  80  80  80  80  80  80  80  80  80  80  80  80  80
##  [343]  80  80  80  80  80  80  80  80  80  80  80  81  81  81  81  81  81  81
##  [361]  81  81  81  81  81  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  81
##  [397]  81  81  81  82  82  82  82  82  82  82  82  82  82  82  82  82  82  82
##  [415]  82  82  82  82  82  82  82  82  82  82  82  82  82  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  83  83  83  83  83  83  83  83  83  83  83  83  84  84  84  84  84
##  [469]  84  84  84  84  84  84  84  84  84  84  84  84  84  84  84  84  84  84
##  [487]  84  84  84  84  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  85  85  85  85  85
##  [523]  85  85  85  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  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  87  87  87  87  87  87  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  88  88  88  88
##  [613]  88  88  88  88  88  89  89  89  89  89  89  89  89  89  89  89  89  89
##  [631]  89  89  89  89  89  89  89  89  89  89  89  89  89  89  89  89  89  89
##  [649]  89  89  89  89  89  90  90  90  90  90  90  90  90  90  90  90  90  90
##  [667]  90  90  90  90  90  90  90  90  90  90  90  90  90  90  90  90  90  90
##  [685]  90  90  90  91  91  91  91  91  91  91  91  91  91  91  91  91  91  91
##  [703]  91  91  91  91  91  91  91  91  91  91  91  91  91  91  91  91  91  91
##  [721]  91  91  91  92  92  92  92  92  92  92  92  92  92  92  92  92  92  92
##  [739]  92  92  92  92  92  92  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  94  94  94  94  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  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  96  96  96  96  96  96  96  96  96  96  96  96  96  96  96  96
##  [883]  96  96  96  96  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  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  99  99  99  99  99  99
##  [973]  99  99 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(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"

Mostrar tabla de frecuencia de datos agrupados.

tabla.intervalos = transform(table(cut(muestra, breaks = 5)))
tabla.intervalos
##       Var1 Freq
## 1  (70,76]  222
## 2  (76,82]  205
## 3  (82,88]  190
## 4  (88,94]  199
## 5 (94,100]  184

Plot o graficar tabla de frecuencia

plot(tabla.intervalos, main = "¿Cual intervalo tiene mas? y ¿Cual intervalo tiene menos?")

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

En esta practica realizamos un conjunti de datos de 1000 las cuales no podian ser menores a 70, es decir, era un rango de 70 a 100. Una vez hecho este muestreo, se ordenaron y agruparon estos datos. Para esto tuvimos que obtener el rango de clase, el ancho de la clase, los limites del rango y la frecuencia de cada rango, aqui siempre empezamos por el rango menor, esto nos reducira el margen de error de agrupacion. Una vez hecho esto graficamos los resultados a partir de una grafica de pastel, la cuel nos muestra que rango tiene mas elementos y del que hubo mas afuera del intervalo.