FRONTERA FITOSANIRARIA

Ejercicio 3. En la frontera fitosanitaria de la Patagonia se revisaron cargamentos de frutas de distinta procedencia para evaluar la posibilidad de introducción de mosca de la fruta (Ceratitis capitata) en áreas no infestadas.

Responder:

1. Identifique y clasifica las variables en estudio

2. Represente los datos gráficamente

3. ¿Qué tipo de prueba de hipótesis corresponde aplicar en este caso? justifique.

4. Realice la prueba de hipótesis y saque conclusiones. α = 0,05.

# Creamos los vectores 
PROCEDENCIA <- c("Cuyo", "NOA", "NEA")
CON_MOSCA <- c(22, 32, 33)
SIN_MOSCA <- c(67, 5, 10)

# Creamos una matriz con los datos
BD <- rbind(CON_MOSCA , SIN_MOSCA)
colnames(BD) <- PROCEDENCIA

# Creamos gráfico de barras apiladas
barplot(BD, beside = FALSE, col = c("red", "green"), 
        main = "Presencia de Mosca de los Frutos según Procedencia",
        xlab = "Región de Procedencia", ylab = "N° de cargamentos",
        ylim = c(0,100))

# Añadimos una leyenda
legend("topright", legend = c("Con mosca", "Sin mosca"), fill = c("red", "green"))

# Crear gráfico de barras agrupadas
barplot(BD, beside = TRUE, col = c("orange", "gray"), 
        main = "Presencia de la plaga según Procedencia",
        xlab = "Región de Procedencia", ylab = "N° de cargamentos",
        ylim = c(0, 100))

# Añadir una leyenda
legend("topright", legend = c("Con mosca", "Sin mosca"), fill = c("blue", "gray"))

Prueba de Hipótesis

H0: La Región es independiente de la Presencia de Plaga H1: La Región NO es independiente de la Presencia de Plaga

# Creamos los vectores 
PROCEDENCIA <- c("Cuyo", "NOA", "NEA")
CON_MOSCA <- c(22, 32, 33)
SIN_MOSCA <- c(67, 5, 10)

# Creamos una matriz con los datos
BD <- rbind(CON_MOSCA , SIN_MOSCA)
colnames(BD) <- PROCEDENCIA
row.names(BD) <- c("con Mosca", "Sin Mosca")
BD

##           Cuyo NOA NEA
## con Mosca   22  32  33
## Sin Mosca   67   5  10

# Realizar la prueba chi-cuadrado de independencia
chisq.test(BD)

## 
##  Pearson's Chi-squared test
## 
## data:  BD
## X-squared = 54.658, df = 2, p-value = 1.353e-12