DE - Clase 4

3. Prueba de hipótesis para comparar 2 proporciones independientes

se mide una variable en el suelo como: MO (materia orgánica) esta variable se mide en porcentaje.

Problema

• Se realiza una encuesta a una cooperativa de productores de café.
• Pregunta piloto ¿Esta usted de acuerdo con las políticas de nombramienti de las directivas de la cooperativa tal como se hacen? (R: SI, NO)
• Total de miembros N = 450, de los cuales 300 son varones y 150 son hembras.
• La proporcion de hembras y varones es igual \(H_0:\\pi_{v} = \pi_{h}\)

set.seed(2023)
varones = runif(n = 300, min = 0, max = 1.2)
varones = round(varones)

hembras = runif(n = 150, min = 0, max = 0.75)
hembras = round(hembras)

# Proporciones
# sum(varones)/length(varones)
mean(varones)

## [1] 0.6166667

mean(hembras)

## [1] 0.32

sum(varones)

## [1] 185

sum(hembras)

## [1] 48

res <- prop.test(x = c(sum(varones), sum(hembras)),
                 n = c(300, 150))
ifelse(res$p.value, "Proporciones No iguales", "Proporciones iguales")

## [1] "Proporciones No iguales"

---

Tercera ley de Mendel

\[H_0 = \\ \pi_{NN} = \frac{9}{16}*1200 = 675\\ \pi_{NV} = \frac{3}{16}*1200 = 225\\ \pi_{SN} = \frac{3}{16}*1200 = 225\\ \pi_{NV} = \frac{1}{16}*1200 = 75\\\]

Moscas de Drossophila

N = 1200 650: Ojos normales - Alas normales 230: Ojos normales - Alas vestigiales 240: Ojos sepia - Alas normales 80: Ojos sepia - Alas vestigiales

ON_AN = 650
ON_AV = 230
OS_AN = 240
OS_AV = 80

obs = c(ON_AN, ON_AV, OS_AN, OS_AV)
pro = c(9/16, 3/16, 3/16, 1/16)
res <- chisq.test(obs, p = pro)
res$p.value

## [1] 0.499174