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 (coverd) que indica si la caja de las semillas esta cubierto o no. El experimento busca evaluar la relación entre humedad del suelo y germinación.

require(faraway)
## Loading required package: faraway
## Warning: package 'faraway' was built under R version 4.1.2
data("seeds")
#seeds #aqui se ve todo
head(seeds,10) #aca se ven solo 10
germ moisture covered
22 1 no
41 3 no
66 5 no
82 7 no
79 9 no
0 11 no
25 1 no
46 3 no
72 5 no
73 7 no

##A. Exploratorio

se observa que el promedio de germinacion de las semillas es de 47% con una desviacion de 28%, lo cual nos muestra una variacion muy alta en la germinacion que se supone puede ser explicada por la humedad del suelo. La figura 1 nos muestra que en experimento 8 de los ensayos no germinarion algunos logaron n % de germinacion alto (mas de 80%). finalmente la figura 2 nos muestra qye existe una relacion no lineal entre humerdad del suelo y la germinacion indicando que las humedades ms favorables para la germinacion se encuentran entre 3 y 7%. por encima de 7% se obsersva 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)
## Loading required package: ggplot2
p=ggplot(data = seeds,mapping = aes(x=germ))
p+geom_histogram()+ggtitle("Figura 1. Histograma de Germinación")+theme_bw()
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
## Warning: Removed 1 rows containing non-finite values (stat_bin).

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()
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
## Warning: Removed 1 rows containing non-finite values (stat_smooth).
## Warning: Removed 1 rows containing missing values (geom_point).

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()
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
## Warning: Removed 1 rows containing non-finite values (stat_smooth).
## Warning: Removed 1 rows containing missing values (geom_point).