Importar datos de promedio en la dirección: https://raw.githubusercontent.com/rpizarrog/Trabajos-en-R-AD2021/main/datos/promedios.csv y dejarlo en un data.frame.
Mostrar solo los primeros diez registros y los últimos diez registros.
Identificar la variable de interés llamada promedio.
Determinar una muestra de 300 registros de la población. La población es todos los registros del archivo y la muestra es una parte de la población
Identifica la media de la población
Identificar la media de la muestra
Comparar las medias aritméticas
Crear un histograma de los datos
Realizar interpretación
poblacion.alumnos = read.csv("https://raw.githubusercontent.com/rpizarrog/Trabajos-en-R-AD2021/main/datos/promedios.csv")Mostrar los primeros y últimos registros
head(poblacion.alumnos, 10)## no promedio
## 1 1 91.60891
## 2 2 86.68564
## 3 3 84.06292
## 4 4 80.94624
## 5 5 88.49800
## 6 6 85.42097
## 7 7 81.11855
## 8 8 78.97463
## 9 9 75.81317
## 10 10 86.60781tail(poblacion.alumnos, 10)## no promedio
## 5591 5591 83.61431
## 5592 5592 78.48419
## 5593 5593 79.59696
## 5594 5594 83.86262
## 5595 5595 81.04476
## 5596 5596 87.74938
## 5597 5597 86.64384
## 5598 5598 88.44429
## 5599 5599 88.19806
## 5600 5600 83.74940La variable de interés es promedio
str(poblacion.alumnos)## 'data.frame': 5600 obs. of 2 variables:
## $ no : int 1 2 3 4 5 6 7 8 9 10 ...
## $ promedio: num 91.6 86.7 84.1 80.9 88.5 ...Muestra de 300 registros
Determinando la variable N el total de registros de la población
N <- nrow(poblacion.alumnos)Se determinan los registros de la muestra
cuales <- sample(x = 1:N, 300, replace = FALSE)
cuales## [1] 2862 2822 84 1736 4440 2105 4544 3370 748 2870 2271 5549 714 442 1294
## [16] 5269 1644 142 1835 4756 2400 4327 2200 3169 2007 5208 3832 3330 931 1303
## [31] 4745 4151 1973 1683 3051 2564 3068 2615 464 4379 5456 4673 3393 2978 4461
## [46] 3040 4533 3026 2815 3375 578 1248 2552 2137 4947 4205 4215 147 4953 2878
## [61] 1797 1259 399 1370 297 1334 4104 5469 885 2049 5393 5306 5499 121 4776
## [76] 415 3192 558 1618 2795 1157 3814 2376 2273 3386 5438 789 4139 3232 351
## [91] 1176 1916 5348 828 46 781 1935 598 2163 3521 4482 4996 636 5405 5197
## [106] 4759 3331 3450 5069 2593 3826 2627 4141 5299 5475 5220 3184 2378 3083 1559
## [121] 4913 1340 3534 4981 4934 3808 2845 4329 102 1700 543 2584 170 5023 4341
## [136] 174 4485 3141 3270 2136 2464 3788 4450 4240 1784 4427 2243 4265 5573 3919
## [151] 5360 1722 3556 64 995 3213 4210 916 503 3299 999 3840 1353 665 780
## [166] 3811 2611 4779 2070 5378 1148 3243 4855 1550 3792 287 1882 5288 2085 2706
## [181] 1118 2408 5585 3815 2733 5482 235 3002 484 3594 1625 4288 2118 660 42
## [196] 3269 4678 4356 5121 525 3667 3994 437 5479 5404 4773 1839 5047 4915 2534
## [211] 4713 4268 1085 1520 2245 2295 424 3048 2763 2444 4968 5410 2416 2665 753
## [226] 2964 3135 5351 382 3641 5291 678 2353 3507 4542 3712 5429 4622 769 4850
## [241] 1198 3425 1091 4807 5162 2490 4645 2727 2526 4590 790 1642 3687 4159 178
## [256] 90 2662 3734 353 3925 2679 5322 1969 2439 4708 4200 5483 4473 5148 2812
## [271] 4204 3780 617 129 5119 1615 1804 5586 148 2761 1885 1902 476 3014 3957
## [286] 729 4653 782 2685 1907 4120 3659 596 2641 193 5331 809 4477 2474 3644Se determina la muestra
muestra.alumnos <- poblacion.alumnos[cuales, ]
head(muestra.alumnos, 10)## no promedio
## 2862 2862 85.97546
## 2822 2822 87.63049
## 84 84 73.48847
## 1736 1736 86.31907
## 4440 4440 84.44996
## 2105 2105 88.57047
## 4544 4544 86.81764
## 3370 3370 85.37911
## 748 748 80.82604
## 2870 2870 85.78536tail(muestra.alumnos, 10)## no promedio
## 4120 4120 76.42972
## 3659 3659 95.44175
## 596 596 91.99672
## 2641 2641 88.16021
## 193 193 79.74357
## 5331 5331 85.82339
## 809 809 86.05846
## 4477 4477 78.70694
## 2474 2474 80.25564
## 3644 3644 85.15813Media de la población
media.poblacion <- mean(poblacion.alumnos$promedio)
media.poblacion## [1] 84.01415Media de la muestra
media.muestra <- mean(muestra.alumnos$promedio)
media.muestra## [1] 84.54822Interpretación
se elaboro un analisis de promedios de alumnos y se importo datos desde una dirección, también unos registros y se realizo todos la descripcion tanto el objetivo y el desarrollo de los datos.