Equipo

Jesus Ruiz Tinajero

No de Control: 19041250

Angel Rafael Olivas Garcia

No de Control: 19041232

Oscar Ivan Alonso Simental

No de Control: 19041186

Juan Manuel Salcido Ruelas

No de Control: 19041252

Datos agrupados

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

Identificar y mostrar datos de la muestra

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

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  71  71  71  71  71  71  71  71  71  71  71  71  71  71  71  71
##   [73]  72  72  72  72  72  72  72  72  72  72  72  72  72  72  72  72  72  72
##   [91]  72  72  72  72  72  72  72  72  72  72  72  72  72  72  72  73  73  73
##  [109]  73  73  73  73  73  73  73  73  73  73  73  73  73  73  73  73  73  73
##  [127]  73  73  73  73  73  73  73  73  73  73  73  73  73  73  73  74  74  74
##  [145]  74  74  74  74  74  74  74  74  74  74  74  74  74  74  74  74  74  74
##  [163]  74  74  74  74  74  74  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  76  76
##  [199]  76  76  76  76  76  76  76  76  76  76  76  76  76  76  76  76  76  76
##  [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  79  79  79  79  79  79  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  80  80
##  [343]  80  80  80  80  80  80  80  81  81  81  81  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  82  82  82  82  82  82  82  82  82
##  [397]  82  82  82  82  82  82  82  82  82  82  82  82  82  82  82  82  82  82
##  [415]  82  82  82  82  82  82  82  83  83  83  83  83  83  83  83  83  83  83
##  [433]  83  83  83  83  83  83  83  83  83  83  83  83  83  83  83  83  83  83
##  [451]  83  83  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  84  84  84  84  84
##  [487]  84  84  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  85  85  85  85  85
##  [523]  86  86  86  86  86  86  86  86  86  86  86  86  86  86  86  86  86  86
##  [541]  86  86  86  86  87  87  87  87  87  87  87  87  87  87  87  87  87  87
##  [559]  87  87  87  87  87  87  87  87  87  87  87  87  87  87  87  87  87  87
##  [577]  87  87  87  87  87  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  88  88  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  89  89  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  91  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  93  93  93
##  [739]  93  93  93  93  93  93  93  93  93  93  93  93  93  93  93  93  93  93
##  [757]  93  93  93  93  93  93  93  93  93  93  93  93  94  94  94  94  94  94
##  [775]  94  94  94  94  94  94  94  94  94  94  94  94  94  94  94  94  94  94
##  [793]  94  94  94  94  94  94  94  94  95  95  95  95  95  95  95  95  95  95
##  [811]  95  95  95  95  95  95  95  95  95  95  95  95  95  95  95  95  95  96
##  [829]  96  96  96  96  96  96  96  96  96  96  96  96  96  96  96  96  96  96
##  [847]  96  96  96  96  96  96  96  96  96  96  96  96  97  97  97  97  97  97
##  [865]  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97
##  [883]  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97  97
##  [901]  98  98  98  98  98  98  98  98  98  98  98  98  98  98  98  98  98  98
##  [919]  98  98  98  98  98  98  98  98  98  98  98  98  98  98  98  98  98  98
##  [937]  98  99  99  99  99  99  99  99  99  99  99  99  99  99  99  99  99  99
##  [955]  99  99  99  99  99  99  99  99  99  99  99 100 100 100 100 100 100 100
##  [973] 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100
##  [991] 100 100 100 100 100 100 100 100 100 100

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 Maximos y Minimos
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]  216
## 2  (76,82]  205
## 3  (82,88]  189
## 4  (88,94]  190
## 5 (94,100]  200

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

Conclusion:

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.