Pregunta 8

Boris Miranda 2025-11-13

Librerias

library(ggplot2)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

Pregunta1

print("Nombre y Apellido: Boris Miranda Prieto") # <--- ¡IMPORTANTE! Cambia esto

## [1] "Nombre y Apellido: Boris Miranda Prieto"

Pregunta2

df <- data.frame(peso = ChickWeight$weight, dieta = ChickWeight$Diet)

N <- nrow(df)

Estratos_pob <- df %>%
  group_by(dieta) %>%
  summarise(
    Nh = n(),
    Sh = sd(peso),
  )

Estratos_pob <- Estratos_pob %>% mutate(peso = Nh/sum(Nh)) %>% 
                  mutate(nh = round(400*peso,0)) %>%
                  mutate(peso_optimo = Nh*Sh) %>% 
                  mutate(nh_optimo = round(400*peso_optimo/sum(peso_optimo),0))  
Estratos_pob       

## # A tibble: 4 × 7
##   dieta    Nh    Sh  peso    nh peso_optimo nh_optimo
##   <fct> <int> <dbl> <dbl> <dbl>       <dbl>     <dbl>
## 1 1       220  56.7 0.381   152      12464.       126
## 2 2       120  71.6 0.208    83       8593.        87
## 3 3       120  86.5 0.208    83      10385.       105
## 4 4       118  68.8 0.204    82       8122.        82

Pregunta2

set.seed(123)
# Parámetros poblacionales