Importar Datos y Libreria

En la tabla se observa la base de datos del experimento de germinaciĆ³n de semillas (germ) en funciĆ³n de la humedad del suelo (moisture). Adicionalmente se tiene la variable cobertura (covered) que indica si la caja de las semillas esta cubierta o no. El experimento busca evaluar la relaciĆ³n entre humedad del suelo y germinaciĆ³n.

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

A. Exploratorio

En la tabla se observa que el promedio de germinaciĆ³n de las semillas es de 47% con una desviaciĆ³n de 28%, lo cual nos muestra una variaciĆ³n muy alta en la germinaciĆ³n que se supone puede ser explicada por la humedad del suelo. La Figura 1 nos muestra que en experimento 8 de los ensayos no germinaron y algunos lograron un % de germinaciĆ³n alto (mas de 80%). Finalmente la Figura 2 nos muestra que existe una relaciĆ³n no lineal entre humedad del suelo y la germinaciĆ³n indicando que las humedades mas favorables para la germinaciĆ³n se encuentran entre 3 y 7%. Por encima de 7% se observa que la semilla no germina.

promedio=mean(seeds$germ,na.rm=TRUE)
desviacion=sd(seeds$germ,na.rm=TRUE)

data.frame(promedio,desviacion)
promedio desviacion
47.80851 28.04316 
require(ggplot2)

p=ggplot(data = seeds,mapping = aes(x=germ))
p+geom_histogram()+ggtitle("Figura 1. Histograma de GerminaciĆ³n")+theme_bw()

p=ggplot(data = seeds,mapping = aes(x=moisture,y=germ))
p+geom_point()+geom_smooth()+ggtitle("Figura 2. RelaciĆ³n GerminaciĆ³n VS Humedad del Suelo")+theme_bw()

La Figura 3 nos muestra que la relaciĆ³n entre germinaciĆ³n y humedad del suelo esta mediada por la cobertura indicando que en ambos casos se logra un tope de germinaciĆ³n pero en diferentes valores de humedad del suelo. Por ejemplo para las cajas cubiertas se recomiendan humedades entre 3 y 5% mientras que para las descubiertas entre 7 y 9% de humedad.

p=ggplot(data = seeds,mapping = aes(x=moisture,y=germ,colour=covered))
p+geom_point()+geom_smooth()+ggtitle("Figura 3. RelaciĆ³n GerminaciĆ³n VS Humedad del Suelo por Cobertura")+theme_bw()