LOTE 15

Resumen total

• Mortalidad S2: 8.22
• Edad de llegada: 72.65

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   41.00   61.00   69.00   68.55   76.00  103.00

Resumen Engorde

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   41.00   61.00   69.00   68.67   76.00  103.00

Mortalidad Predestete

ggplot(datos, aes(1:nrow(datos), Peso)) +
  geom_point(aes(col = Genetica))

ggplot(datos, aes(datos$Peso)) +
  geom_density(aes(fill = Genetica,col = Genetica, alpha = 0.1))

## Warning: Use of `datos$Peso` is discouraged. Use `Peso` instead.

ggplot(datos, aes(Genetica,Peso)) +
  geom_boxplot(aes(fill = Genetica))