3. Prueba de hipotesis para comparar 3 proporciones independientes

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

Problema - Se realiza una encuesta a una cooperativa de cafe - Pregunta piloto: ¿Esta usted de acuerdo con las politicas de la cooperativa tal como se hace actualmente? (R: SI, NO) - Total de miembros N = 450, de los cuales 300 varones y 150 hembras - La proporción de hembras y varones es igual \(H_0: \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, max = 0.75)
hembras = round(hembras) 
#Proporciones
#sun(varones)/length(varones)
# sum(varones)/length(varones)
mean(varones)
## [1] 0.56
mean(hembras)
## [1] 0.32
sum(varones)
## [1] 168
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"

4. Prueba chi^2 de Pearson

Tercera Ley de Mendel

$$H_0:\

{NN} = \ = 675\ {Nv} = \ = 225\ {SN} = \ = 225\ {SV} = \ = 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