Estadística descriptiva Examen Práctica 12 GB

---

1 Introducción

1.1 Descripción

Definir conceptos de comandos y ejecutar el presente markdown

---

2 Preparar el ambiente de trabajo

2.1 Limpiar el entorno

# Borra todos los objetos del entorno
rm(list = ls())
# Libera memoria
gc()

##          used (Mb) gc trigger (Mb) max used (Mb)
## Ncells 531176 28.4    1187452 63.5   660385 35.3
## Vcells 966763  7.4    8388608 64.0  1769428 13.5

# Muestra en qué carpeta estás trabajando
getwd()

## [1] "C:/Users/brand/iCloudDrive/DESK2025SAID/CLASES 20262/LABORATORIO 2/practica12_examenfinalL2/PR12B"

#Ubicar carpeta en la pestaña de Session > Set working > Choose > practica12B

---

3 Simulación de datos

3.1 Código para simular datos

Simularemos datos de 120 personas con edades y estaturas aleatorios bajo una distribución normal.

set.seed(123) # Para que todos obtengan el mismo resultado
n <- 120      # Número de registros
edad <- round(rnorm(n, mean = 29, sd = 10))
estatura <- round(rnorm(n, mean = 178, sd = 10),1)
datosB<- data.frame(
  ID = 1:n,
  Edad = edad,
  Estatura = estatura
)

head(datosB)

##   ID Edad Estatura
## 1  1   23    179.2
## 2  2   27    168.5
## 3  3   45    173.1
## 4  4   30    175.4
## 5  5   30    196.4
## 6  6   46    171.5

---

4 Resumen de datos

4.1 Estadística Descriptiva

resumen <- summary(datosB)
print(resumen)

##        ID              Edad          Estatura    
##  Min.   :  1.00   Min.   : 6.00   Min.   :157.5  
##  1st Qu.: 30.75   1st Qu.:23.00   1st Qu.:170.8  
##  Median : 60.50   Median :29.00   Median :176.1  
##  Mean   : 60.50   Mean   :29.18   Mean   :177.7  
##  3rd Qu.: 90.25   3rd Qu.:35.00   3rd Qu.:183.7  
##  Max.   :120.00   Max.   :51.00   Max.   :210.4

---

5 Visualización de datos

5.1 Edad - Histograma

hist(datosB$Edad,
     probability = TRUE,
     main = "Histograma de Edad con Curva Normal",
     xlab = "edad",
     col = "blue",
     border = "white")
curve(dnorm(x, mean = mean(datosB$Edad), sd = sd(datosB$Edad)),
      col = "red", lwd = 2, add = TRUE)

5.2 Estatura - Histograma

hist(datosB$Estatura,
     probability = TRUE,
     main = "Histograma de Estatura con Curva Normal",
     xlab = "Estatura (cm)",
     col = "green",
     border = "white")

curve(dnorm(x,
            mean = mean(datosB$Estatura),
            sd = sd(datosB$Estatura)),
      col = "red",
      lwd = 2,
      add = TRUE)

5.3 Diagramas de Caja Comparativos

boxplot(datosB$Edad, datosB$Estatura,
        names = c("Edad", "Estatura"),
        main = "Diagrama de Caja de Edad y Estatura",
        col = c("orange", "darkolivegreen3"),
        horizontal = TRUE)

5.4 Dispersión Edad vs Ingreso

plot(datosB$Edad, datosB$Estatura,
     main = "Dispersión entre Edad y Estatura",
     xlab = "edad",
     ylab = "estatura",
     pch = 19,
     col = rgb(0.1, 0.2, 0.5, 0.5))
abline(lm(estatura ~ edad, data = datosB), col = "red", lwd = 2)

---

6 Exportar datos a excel

if (!require(openxlsx)) install.packages("openxlsx")

## Warning: package 'openxlsx' was built under R version 4.3.3

library(openxlsx)

# Crear libro de Excel
wb <- createWorkbook()

# HOJA 1: DATOS SIMULADOS
addWorksheet(wb, "DatosB")
writeData(wb, "DatosB", datosB)

# HOJA 2: RESUMEN ESTADISTICO
resumen <- as.data.frame(summary(datosB))
addWorksheet(wb, "Resumen")
writeData(wb, "Resumen", resumen)

# GUARDAR ARCHIVO
saveWorkbook(wb, "Base_practica12B.xlsx", overwrite = TRUE)

---