Experimento Semillas

En este informe se realiza una exploración de los datos del experimento que evalua el efecto de la humedad en el suelo (moisture) sobre la germinación de las semillas (germ). Los datos se muestran a continuación:

library(faraway)
data("seeds")
head(seeds)
##   germ moisture covered
## 1   22        1      no
## 2   41        3      no
## 3   66        5      no
## 4   82        7      no
## 5   79        9      no
## 6    0       11      no

Se observa que la base de datos tiene un total de 48 registros con tres variables: germ, moisture y covered

hist(seeds$germ, col="green", main = "% de germinación", ylab = "Frecuencia", xlab = "Germinación")

summary(seeds$germ)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##    0.00   29.00   51.00   47.81   73.00   84.00       1

Se observa en el histograma una gran variación en los porcentajes de germinación, indicando que algunas presentaron 0% de germinación, mientras que otras lograron alcanzar un 84%. El promedio de germinación es del 47% y la mediana del 51%

table(seeds$moisture,seeds$covered)
##     
##      no yes
##   1   4   4
##   3   4   4
##   5   4   4
##   7   4   4
##   9   4   4
##   11  4   4

Se observa que la variable moisture tiene 6 niveles (1, 3, 5, 7, 9 y 11%) mientras que covered tiene 2 (yes or no). El diseño se encuentra balanceado con un total de 4 réplicas.

tapply(seeds$germ, seeds$moisture, mean,na.rm=TRUE)
##        1        3        5        7        9       11 
## 33.50000 60.62500 71.37500 65.00000 57.57143  0.00000
boxplot(seeds$germ~seeds$moisture,col="gray")

Se observa que el % de germinación promedio más alto se logra cuando el % de humedad del suelo es de 5% (71%), adicionalmente, el gráfico de cajas nos muestra que es el más estable en términos de variación si lo comparamos con 3 y 5% que en general presentan buenos niveles de germinación pero con mucha variación. Definitivamente 11% resulta letal para la germinación ya que en todos los ensayos el porcentaje de germinación fue de cero.

Tarea

¿Cuál es el efecto de coveres sobre el % de germinación? ¿Cambian los resultados del % de humedad óptimo(mayor germinación) dependiendo si la variable covered es (yes or no)?

opciones: filtrar la base