Estudio de peso de lana en ovinos

Daniela Puerta

Introducción

En este estudio se evaluó el peso de lana en ovinos considerando la raza, edad y tipo de alimentación.

Mediante el siguiente código obtenemos los datos de la investigación:

# Creación de la base de datos
datos <- data.frame(
  animal = 1:20,
  raza = factor(c("Romney", "Corriedale", "Merino", "Criollo", 
                  "Romney", "Corriedale", "Merino", "Criollo", 
                  "Romney", "Corriedale", "Merino", "Criollo", 
                  "Romney", "Corriedale", "Merino", "Criollo", 
                  "Romney", "Corriedale", "Merino", "Criollo")),
  peso_lana = c(3.2, 3.5, 3.1, 3.8, 3.4, 3.3, 3.6, 3.9, 3.5, 3.2, 
                3.7, 4.0, 3.6, 3.4, 3.8, 4.1, 3.7, 3.5, 3.9, 4.2),
  edad = c(2, 3, 2, 4, 3, 2, 4, 5, 3, 2, 4, 5, 4, 3, 5, 6, 4, 3, 5, 6),
  alimentacion = factor(c("Pastoreo", "Suplemento", "Heno", "Pastoreo", 
                          "Suplemento", "Heno", "Pastoreo", "Suplemento", 
                          "Heno", "Pastoreo", "Suplemento", "Heno", 
                          "Pastoreo", "Suplemento", "Heno", "Pastoreo", 
                          "Suplemento", "Heno", "Pastoreo", "Suplemento"))
)

# Estadísticos generales de peso_lana
media_peso <- mean(datos$peso_lana)
mediana_peso <- median(datos$peso_lana)

media_peso

[1] 3.62

mediana_peso

[1] 3.6

Estadísticos por Raza

Ahora calculamos el promedio y la desviación estándar del peso de la lana según la raza del ovino:

        raza peso_lana
1 Corriedale      3.38
2    Criollo      4.00
3     Merino      3.62
4     Romney      3.48

        raza peso_lana
1 Corriedale 0.1303840
2    Criollo 0.1581139
3     Merino 0.3114482
4     Romney 0.1923538

Histograma

Ahora vamos a crear el histograma mediante el siguiente código:

BOXPLOT

A continuación, creamos el gráfico de caja (Boxplot) para comparar las razas:

Interpretación de la Variabilidad

Nivel productivo por raza: La raza Criollo registró los promedios de peso de lana más altos (4.0 kg en promedio), mientras que Corriedale tuvo los valores más bajos (3.38 kg).
Variabilidad dentro de cada raza: La raza Merino presenta la mayor dispersión en los datos (desviación estándar de 0.31 kg), abarcando desde 3.1 kg hasta 3.9 kg.
Homogeneidad: Las razas Corriedale y Criollo mostraron la menor variabilidad interna, con producciones más uniformes entre los ovinos evaluados.

[1] 2