Esto puede ser abordado como una prueba de la chi cuadrado de homogeneidad. Quieres ver si hay diferencias desde un punto de distribución uniforme a través de los parques en la cuenta de caracoles procedentes de diferentes poblaciones o grupos (colores). Los márgenes de los datos tabulados se consideran variables aleatorias, y se utiliza para cruzar multiplicar y obtener la espera de conteo en cada celda.
Aquí está su tabulados los datos reales y los esperados cuenta:
> addmargins(round(snails, 0))
park
snails A B C Sum
red 800 200 400 1400
blue 100 600 100 800
green 400 50 50 500
Sum 1300 850 550 2700
> addmargins(round(chisq.test(snails)$expected,0))
park
snails A B C Sum
red 674 441 285 1400
blue 385 252 163 800
green 241 157 102 500
Sum 1300 850 550 2700
La prueba de la chi cuadrado se puede ejecutar en R como sigue:
chisq.test(snails)
Pearson's Chi-squared test
data: snails
X-squared = 1123, df = 4, p-value < 2.2e-16
Así que no hay evidencia de que la distribución de los diferentes tipos de caracol a través de los parques no es homogénea.
He aquí algunos de trazado de los resultados y estandarizada de los residuos:
Tal vez la parte más interesante de tu pregunta es para discutir qué hacer con los resultados de un ómnibus de la prueba en un mayor que $2 \times 2$ tabla de contingencia. En este el jurado está todavía fuera (sorprendentemente) - en esta se puede comprobar esta referencia muy útil. Pero los residuos o residuos estandarizados son un inicio, y se puede encontrar de manera gráfica se traza, y con colores. Muchas conclusiones se pueden extraer de la observación de los residuos mosaico de la parcela, y después de todo, parece que al menos algunos de los autores están aún toleran un poco de post-chi "ojo de bolas."
En el artículo I de enlace existen procedimientos para una descripción más detallada del análisis post-hoc de los datos. Un enfoque diferente totalmente podría ser generalizada del modelo de regresión lineal.
Aquí es la interpretación, y el código:
snails <- matrix(c(800, 200, 400,
100, 600, 100,
400, 50, 50), nrow = 3, byrow = T)
dimnames(snails) = list(snails = c("red", "blue", "green"),
park = c("A", "B", "C"))
snails
addmargins(round(snails, 0))
addmargins(round(chisq.test(snails)$expected,0))
chisq.test(snails)
library(vcd)
mosaic(snails, shade=TRUE, legend=TRUE)