Jose Gerardo Bermúdez Díaz - 24/02/2023

Materia Organica - Variable Porcentual: Se mide una variable en el suelo como MO, esta variable se mide en porcentaje.

Problema - Se quieren comparar dos porcentajes.

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 directivas de la cooperativa tal como se hacen actualmente? (R: Si, No).
Total de miembros N = 450, de los cuales 300 son hombres y 150 son mujeres.

. La proporción de hombres y mujeres es igual \(H_0: \pi_{v} = \pi_{h}\)

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

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

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

## [1] 0.56

mean(mujeres)

## [1] 0.32

sum(hombres)

## [1] 168

sum(mujeres)

## [1] 48

res <- prop.test(x = c(sum(hombres), sum(mujeres)), 
                 n= c(500, 500))
ifelse(res$p.value, 'Proporciones no iguales', 'Proporciones iguales')

## [1] "Proporciones no iguales"

Ejemplo: Moscas de Drossophila.

4. Prueba chi^2 de Pearson.

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\]

N = 1200

Ojos normales y alas normales = 650
Ojos normales y alas vestigiales = 200
Ojos sepia y alas normales = 240
Ojos sepia y alas vestigiales = 110

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

Prueba de hipótesis para comparar dos proporciones independientes.

4. Prueba chi^2 de Pearson.