##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",ylab = "% de germinación", xlab = " % de humedad del suelo")

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.

##Tarea 1. ¿Cuál es el efecto de covered sobre el % de germinación?

boxplot(seeds$germ~seeds$covered, col= "light blue", ylab = "% de germinación", xlab = " Covered")

tapply(seeds$germ,seeds$covered,mean,na.rm=TRUE)
##       no      yes 
## 47.95833 47.65217

Según el diagrama de cajas que se presenta anteriormente, el efecto de cubrir la caja de sembrado resulta efectivo en un 47,65%, mientras que no cubrir la caja de sembrado aumento un 0,3% más o menos. Siendo así, se dice que no cubrir las cajas es un factor importante para que la germinación sea exitosa.

  1. ¿Cambian los resultados del % de humedad óptimo (mayor germinación), dependiendo si la variable covered es (yes or no)?
A<-tapply(seeds$moisture, seeds$covered=="yes", mean,na.rm=TRUE)
B<-tapply(seeds$moisture, seeds$covered=="no", mean,na.rm=TRUE)
boxplot(A~B, ylab ="% de humedad", xlab = "yes and no Covered")

El porcentaje de humedad óptimo (5%) para la germinación de las semillas no varía para ninguna de las cajas así se encuentren cubiertas o no.