Datos agrupados

Objetivo: Generar datos agrupados, tabla de frecuencia y gráfica de los datos agrupados

Proceso:

* Generar y mostrar datos de la muestra

* Ordenar datos y mostrar

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

* Determianr número de intérvalos igual a 5

* Identificar rango de cada intérvalo mediante: VALOR MINIMO / INTERVALOS

* Mostrar tabla de frecuencia de datos agrupados

* Plot o graficar tabla de frecuencia

generar el conjuto de datos aleatorios a agrupar

datos = sample(70:100, size=1000,replace=TRUE)

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

Ordenar datos y mostrar

datosordn <- sort(datos)

datosordn
##    [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  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  71  71  71  71  71  71  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  72
##   [91]  72  72  72  72  73  73  73  73  73  73  73  73  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  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  74  74  74  74  74  74  74  74  74  74
##  [163]  74  74  74  74  75  75  75  75  75  75  75  75  75  75  75  75  75  75
##  [181]  75  75  75  75  75  75  75  75  75  75  75  75  75  75  75  75  75  75
##  [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  76  76  76  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  79
##  [289]  79  79  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  80  80  80  80  80  80  80  80  80
##  [325]  80  80  80  80  80  80  80  80  80  80  80  80  80  80  80  80  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]  83  83  83  83  83  83  83  83  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  83  83  83  83  84  84  84  84  84  84  84  84  84  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  84  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  86  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  86  86  86  86  86  86  86  86  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  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  88  88  88  88
##  [613]  88  88  88  88  88  88  88  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]  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  90  90  90  90  90  90  90  90  90  90
##  [685]  90  90  90  90  90  90  90  90  90  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  91  91  91  91  91  91  92  92  92  92  92  92  92  92  92
##  [739]  92  92  92  92  92  92  92  92  92  92  92  92  92  92  92  92  92  92
##  [757]  92  92  92  92  92  92  92  92  92  93  93  93  93  93  93  93  93  93
##  [775]  93  93  93  93  93  93  93  93  93  93  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  94  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  96  97  97  97  97  97  97  97  97
##  [883]  97  97  97  97  97  97  97  97  97  97  97  97  97  97  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]  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  99  99  99 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

entcontrar numero de elemtos n, valores maximos y minimos, rango y apmplitud 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 <- diff(rango)
amplitud
## [1] 30

forma habitual de agrupar datos

¿ Cúantos intervalos se quiere tener?¿Cúantos grupos?

Determinar numero de intervalos igual a 5

# formula valorminimo/intervalos
intervalos <- 5
rangointervalos <- amplitud/intervalos
rangointervalos
## [1] 6
#paste significa concatenar

print(paste("Los los Valores de cada grupo de datos van...","de",rangointervalos,"en",rangointervalos,"a partir de: ",min(datos)))
## [1] "Los los Valores de cada grupo de datos van... de 6 en 6 a partir de:  70"

muestra tabla de frecuencia de datos agrupados

Se empieza de valor menor para evitar errores de agrupamiento

table.intervalos<- transform(table(cut(datos, breaks = 5)))
table.intervalos
##       Var1 Freq
## 1  (70,76]  225
## 2  (76,82]  171
## 3  (82,88]  223
## 4  (88,94]  198
## 5 (94,100]  183

plot o grafica fecuencia

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

Regla de Strurges

¿De manera matematica sugiere los intervalos y las amplitudes de cada intervalo?

¿Cuales intervalos genera?¿cual es la amplitud de cada intervalo?

Formula: k=1+3.322(logN)/logaritmo base 10/

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