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

Ordenar datos y mostrar

# En esta parte se ordena el conjunto de datos y se muestran
datosord <- sort(datos)
datosord
##    [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  71  71
##   [37]  71  71  71  71  71  71  71  71  71  71  71  71  71  71  71  71  71  71
##   [55]  71  71  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  72  72
##   [91]  72  72  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  73  73  73  73  73  73  73  73  73
##  [127]  73  73  73  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  76  76  76  76  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  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  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  79  79  79  79  79  79  79  79  79
##  [325]  79  79  79  79  79  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  80  80  80  80  80  80  80
##  [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  81  81  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  82  82  82  82  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  83  83  83  83  83
##  [469]  83  84  84  84  84  84  84  84  84  84  84  84  84  84  84  84  84  84
##  [487]  84  84  84  84  84  84  84  84  84  84  84  84  84  84  84  85  85  85
##  [505]  85  85  85  85  85  85  85  85  85  85  85  85  85  85  85  85  85  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  87  87  87  87  87  87  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  88  88  88  88  88  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  89  89  89  89  89  89  89  89  89  89  89  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  90  90  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  92  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  93  93  93  93  93  93  93  93  93  93  93  93  93  93  93  93  93
##  [775]  93  93  93  93  93  93  93  93  93  93  93  93  93  93  93  93  93  93
##  [793]  93  93  93  93  94  94  94  94  94  94  94  94  94  94  94  94  94  94
##  [811]  94  94  94  94  94  94  94  94  94  94  94  94  94  94  94  94  94  94
##  [829]  94  94  94  95  95  95  95  95  95  95  95  95  95  95  95  95  95  95
##  [847]  95  95  95  95  95  95  95  95  95  95  95  95  95  95  95  95  95  95
##  [865]  95  95  95  96  96  96  96  96  96  96  96  96  96  96  96  96  96  96
##  [883]  96  96  96  96  96  96  96  96  96  96  96  96  96  97  97  97  97  97
##  [901]  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97
##  [919]  97  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  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 minimos y maximos, rango y amplitud del rango de la muestra

# Numero de elementos
n <- length(datos)
n
## [1] 1000
# Valores máximos y mínimos
max(datos)
## [1] 100
min(datos)
## [1] 70
# rango
rango <- range(datos)
rango
## [1]  70 100
#Amplitud del rango
amplitud <- max(datos) - min(datos)
amplitud
## [1] 30

Determinar número de intérvalos igual a 5

#Determinar numero de intervalos y su rango
nointervalos <- 5   
rangointervalos <- amplitud / nointervalos
rangointervalos
## [1] 6

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

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

Mostrar tabla de frecuencia de datos agrupados

#Tabla de Intervalos
#Aqui se forma una tabla de intervalos a partir de los datos de la muestra
tabladeintervalos <- transform(table(cut(datos, breaks = 5)))
tabladeintervalos
##       Var1 Freq
## 1  (70,76]  229
## 2  (76,82]  202
## 3  (82,88]  193
## 4  (88,94]  207
## 5 (94,100]  169

Visualizar la tabla de frecuencia

#Visualizar datos
#En esta seccion se visualizan los datos de la tabla de los intervalos
plot(tabladeintervalos, main="¿Que intervalo es el mas utilizado?")

#### ¿De manera mantemática sugiere los intérvalos y las amplitudes de cada intervalo ¿Cuáles intérvalos genera? ¿cual es la amplitud de cada intérvalo?

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

En esta práctica se trabajo con un conjunto de 1000 datos entre 70 y 100; se calculo el valor de n, los máximos y mínimos, el rango y la amplitud de la muestra.
n tiene el valor de 1000, que es el valor del total de datos, el máximo es el 100 y el mínimo es el 70, el rango es de 70 a 100 y la amplitud es de 30.
Al haber una amplitud de 30 el numero de intervalos de 5 es 6, con dichos intervalos se genera una tabla con las frecuencias para cada intervalo, el intervalo con mas frecuencia es de 70 a 76 con 249 repeticiones, luego se genera una grafica con dicha tabla de intervalos
Se utiliza el metodo sturgees para calcular los intervalos, da como resultado 11 intervalos, se dividen los datos con dichos intervalos y se genera una grafica de pastel con los resultados.