Untitled

##Prueba 3, prueba de hipotesis para comparar 2 proporciones independientes Se mide una variable en el suelo como: MO(Materia organica) esta variable se mide en porcentaje

##Problem SE realiza una encuesta a una cooperativa de productores de cafe ¿Esta usted de acuerdo con las politicas de nombramiento de las directivas de la cooperativa tal como se hace? (R: ‘si’, ‘no’) -Total de miembros N=450, de los cuales 300varones son y 150 son hembras - la proporcion de hombres y mujeres es igual $H

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

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

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

## [1] 0.56

mean(hembras)

## [1] 0.3433333

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 $^2 de Pearson para comparar proporciones

Tercera ley de mendel \[H_O:\\ \pi_{NN} = \frac{9}{16} = 675\\ \pi_{NV} = \frac{3}{16} = 225\\ \pi_{SN} = \frac{3}{16} = 225\\ \pi_{SN} = \frac{1}{16} =75\\\]

Moscas de Drossophila

N = 1200 650: Ojos normales-Alas normales 200: Ojos normales- Alas vestigiales 240: Ojos Sepia - Alas Normales 240: Ojos Sepia - Alas Vestigiales

ON_AN = 650
ON_AV = 200
OS_AN = 240
OS_AV = 110

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.000103428