##Datos Conejos (Libreria Faraway)

Mostrar resultado de datos conejos

require(faraway)
data("rabbit")
head(rabbit) #head para mostrar más resumido los datos
##   treat gain block
## 1     f 42.2    b1
## 2     b 32.6    b1
## 3     c 35.2    b1
## 4     c 40.9    b2
## 5     a 40.1    b2
## 6     b 38.1    b2
require(ggplot2)
g1=ggplot(rabbit, aes(x=gain))+geom_histogram()+theme_bw()
g1

summary(rabbit$gain)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   20.60   35.73   39.30   38.47   42.08   51.90

Se observa en la figura del histograma la ganancia d epesos que los conejos presentan en un rango amplio de ganancia de peso que va desde los 20 hasta los 51, y un promedio de peso de 38.

g2=ggplot(rabbit, aes(y=gain, x=treat, fill=treat))+geom_boxplot()+theme_bw()
g2

En la figura se observa que el tratamiento A presenta el mejor tratamiento en terminos de ganancia de peso, seguido de F. Por el contrario los tratamiento B y E presentan el menor desempeño en ganancia. Adicionalmente el tratamiento E presenta una alta variabilidad, es decir, conejos con ganancias muy difernetes pero en general bajas comparadas con A.