#3. PRUEBA DE HPOTESIS PARA COMPARAR 2 PROPORCIONES INDEPENDIENTES

-Se mide una variable en el suelo como: MO (Materia Organica) esta variable se mide en porcentaje

-Se quieren comparar dos porcentajes

Problema -Se realiza una encuesta a una cooperativa de productores de cafe

-Pregunta piloto: ¿Esta usted de acuerdo con las politicas de nombramiento de las directivas de la cooperativa tal como se hacen? (R: “si”, “No”)

-Total de miembros N= 450, de los cuales 300 Hombres y 150 Mujeres

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

Mujeres = runif(n = 150, min = 0.2, max = 0.75)
Mujeres = round(Mujeres)
# Proporciones
# sum(hombres)/length(hombres)
mean(Hombres)
## [1] 0.56
mean(Mujeres)
## [1] 0.42
sum(Mujeres)
## [1] 63
sum(Hombres)
## [1] 168
res <- prop.test(x = c(sum(Hombres), sum(Mujeres)),
                 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_0:\\ \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\\\]

Moscas de Drosophila

N = 1200 650: ojos normales - alas normales 200: ojos normales - alas vestigiales 240: ojos sepia - alas normales 110: 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