##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 contiene un total de 48 registros con 3 variables: germ, moisture y covered.

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

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

En el histograma se observa una gran variación en los porcentajes de variación. Indicando que algunas cajas presentaron 0% de germinación, mientras que otras, alcanzaron un 84%. El promedio de germinación es del 47% y la mediana es 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 el experimento está balanceado con respecto al número de replicas que se realizan por los porcentajes de humedad que se tienen establecidos (1,3,5,7,9 y 11%)

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= "light blue")

Con el gráfico de cajas se puede observar que el porcentaje de germinación más alto se dio cuando la humedad es de 5%. Dicho esto, se puede decir que es el más estable en términos de variación si lo comparamos con la humedad de 3% y 7% que en general presentan buenos niveles de germinación, pero con mucha variación. Así mismo, se puede observar que la humedad de 11% es letal para la germinación.