Untitled
Juleydi Miles
2026-02-19
data
data("rivers")#Cree el vector de datos y determine:tamaño de la muestra,valor mínimo,valor máximo
datos<-rivers
length(datos)#tamaño## [1] 141min(datos) # mínimo## [1] 135max(datos) # mínimo## [1] 3710#SEGUNDA PREGUNTA, Calcule: media, medianadesviación estándar.
mean(datos)## [1] 591.1844median(datos)## [1] 425sd(datos)## [1] 493.8708#TERCERA PREGUNTA, ¿Cuál es la probabilidad de que un río tenga longitud menor o igual a 500?
mean(datos <= 500)## [1] 0.5957447#CUARTA PREGUNTA,¿Cuál es la probabilidad de que un río tenga longitud mayor a 1000?
mean(datos>1000)## [1] 0.1134752#QUINTA PREGUNTA, Construya una tabla de frecuencias
tabla <-table(datos)
tabla## datos
## 135 202 210 215 217 230 233 237 246 250 255 259 260 265 268 270
## 1 1 2 1 1 2 1 1 1 3 1 1 2 1 1 1
## 276 280 281 286 290 291 300 301 306 310 314 315 320 325 327 329
## 1 3 1 1 1 1 3 1 1 2 1 1 1 1 1 1
## 330 332 336 338 340 350 352 360 375 377 380 383 390 392 407 410
## 1 1 1 1 1 4 1 4 1 1 2 1 2 1 1 1
## 411 420 424 425 430 431 435 444 445 450 460 465 470 490 500 505
## 1 2 1 1 1 1 1 1 1 1 2 1 1 1 2 1
## 524 525 529 538 540 545 560 570 600 605 610 618 620 625 630 652
## 1 2 1 1 1 1 1 1 3 1 1 1 1 1 1 1
## 671 680 696 710 720 730 735 760 780 800 840 850 870 890 900 906
## 1 1 1 1 2 1 2 1 1 1 1 1 1 1 2 1
## 981 1000 1038 1054 1100 1171 1205 1243 1270 1306 1450 1459 1770 1885 2315 2348
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 2533 3710
## 1 1#SEXTA PREGUNTA, Obtenga: frecuencia relativa
fr<-prop.table(tabla)
fr## datos
## 135 202 210 215 217 230
## 0.007092199 0.007092199 0.014184397 0.007092199 0.007092199 0.014184397
## 233 237 246 250 255 259
## 0.007092199 0.007092199 0.007092199 0.021276596 0.007092199 0.007092199
## 260 265 268 270 276 280
## 0.014184397 0.007092199 0.007092199 0.007092199 0.007092199 0.021276596
## 281 286 290 291 300 301
## 0.007092199 0.007092199 0.007092199 0.007092199 0.021276596 0.007092199
## 306 310 314 315 320 325
## 0.007092199 0.014184397 0.007092199 0.007092199 0.007092199 0.007092199
## 327 329 330 332 336 338
## 0.007092199 0.007092199 0.007092199 0.007092199 0.007092199 0.007092199
## 340 350 352 360 375 377
## 0.007092199 0.028368794 0.007092199 0.028368794 0.007092199 0.007092199
## 380 383 390 392 407 410
## 0.014184397 0.007092199 0.014184397 0.007092199 0.007092199 0.007092199
## 411 420 424 425 430 431
## 0.007092199 0.014184397 0.007092199 0.007092199 0.007092199 0.007092199
## 435 444 445 450 460 465
## 0.007092199 0.007092199 0.007092199 0.007092199 0.014184397 0.007092199
## 470 490 500 505 524 525
## 0.007092199 0.007092199 0.014184397 0.007092199 0.007092199 0.014184397
## 529 538 540 545 560 570
## 0.007092199 0.007092199 0.007092199 0.007092199 0.007092199 0.007092199
## 600 605 610 618 620 625
## 0.021276596 0.007092199 0.007092199 0.007092199 0.007092199 0.007092199
## 630 652 671 680 696 710
## 0.007092199 0.007092199 0.007092199 0.007092199 0.007092199 0.007092199
## 720 730 735 760 780 800
## 0.014184397 0.007092199 0.014184397 0.007092199 0.007092199 0.007092199
## 840 850 870 890 900 906
## 0.007092199 0.007092199 0.007092199 0.007092199 0.014184397 0.007092199
## 981 1000 1038 1054 1100 1171
## 0.007092199 0.007092199 0.007092199 0.007092199 0.007092199 0.007092199
## 1205 1243 1270 1306 1450 1459
## 0.007092199 0.007092199 0.007092199 0.007092199 0.007092199 0.007092199
## 1770 1885 2315 2348 2533 3710
## 0.007092199 0.007092199 0.007092199 0.007092199 0.007092199 0.007092199#SÉPTIMA PREGUNTA, Frecuencia acumulada
fa<-cumsum(tabla)
fa## 135 202 210 215 217 230 233 237 246 250 255 259 260 265 268 270
## 1 2 4 5 6 8 9 10 11 14 15 16 18 19 20 21
## 276 280 281 286 290 291 300 301 306 310 314 315 320 325 327 329
## 22 25 26 27 28 29 32 33 34 36 37 38 39 40 41 42
## 330 332 336 338 340 350 352 360 375 377 380 383 390 392 407 410
## 43 44 45 46 47 51 52 56 57 58 60 61 63 64 65 66
## 411 420 424 425 430 431 435 444 445 450 460 465 470 490 500 505
## 67 69 70 71 72 73 74 75 76 77 79 80 81 82 84 85
## 524 525 529 538 540 545 560 570 600 605 610 618 620 625 630 652
## 86 88 89 90 91 92 93 94 97 98 99 100 101 102 103 104
## 671 680 696 710 720 730 735 760 780 800 840 850 870 890 900 906
## 105 106 107 108 110 111 113 114 115 116 117 118 119 120 122 123
## 981 1000 1038 1054 1100 1171 1205 1243 1270 1306 1450 1459 1770 1885 2315 2348
## 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139
## 2533 3710
## 140 141#OCTAVA PREGUNTA (OJIVA 🚨),Construya la ojiva
plot(fa, type="o")
##Ojiva porcentual:
fa_rel<-cumsum(prop.table(tabla))
plot(fa_rel,type="o")
#NOVENA PREGUNTA, ¿Qué porcentaje de ríos tienen longitud menor a 800?
mean(datos< 800)*100## [1] 81.56028#DÉCIMA PREGUNTA, Determine el cuartil 1, 2 y 3
quantile(datos)## 0% 25% 50% 75% 100%
## 135 310 425 680 3710Q1 <- quantile(datos, 0.25)
Q3 <- quantile(datos, 0.75)
IQR_val <- IQR(datos)
lim_inf <- Q1 - 1.5 * IQR_val
lim_sup <- Q3 + 1.5 * IQR_val
# Ver atípicos
datos[datos < lim_inf | datos > lim_sup]## [1] 1459 1450 1243 2348 3710 2315 2533 1306 1270 1885 1770# Contarlos
sum(datos < lim_inf | datos > lim_sup)## [1] 11#ONCEAVA PREGUNTA,Construya un histograma
hist(datos)
#DOCEAVA PREGUNTA,¿Existen valores atípicos?
boxplot(datos)
#PREGUNTA TÍPICA DE INTERPRETACIÓN Podrían pedir:¿Qué proporción de ríos supera la media?
mean(datos>mean(datos))## [1] 0.3333333#Probabilidad de que un río esté entre 400 y 900
mean(datos>=400 & datos<=900)## [1] 0.4113475frecuencias<-c(5,6,7,8,9) tabla<-table tabla