DE_CLASE 4_CASO 3

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 nombramiento de las directavias de la cooperativa tal como se hacen? (R: SI, NO)
• Total de miembros N = 45., de los cuales 300 y 150
• La proporción de hembras y varones es igual \(H_o: \pi_{v} = \pi_{h}\)

set.seed(123)
Varones = runif(n = 300, min = 0, max = 1.2)
Varones = round(Varones)

Hembras = runif(n = 150, min = 0.2, max = 0.75)
Hembras = round(Hembras)

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

## [1] 0.56

mean(Hembras)

## [1] 0.42

sum(Varones)

## [1] 168

sum(Hembras)

## [1] 63

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"

---

4. Prueba \(\chi^2\) de Pearson para comparar proporciones

Tercera Ley de Mendel

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

Ejemplo: Moscas de Drosophila

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

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