Clase 4: Diseño de Experimentos

{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

# 3. Prueba de hipotesis para comparar 2 opciones independientes

Se mide una variable en el suelo como: OM (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 directivas de la cooperativa tal como se hacen? (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.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

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