isdals (version 3.0.1)

cooling: Tenderness of pork

Description

Two different cooling methods for pork meat were compared in an experiment with 18 pigs from two different groups: low or high pH content. After slaughter, each pig was split in two and one side was exposed to rapid cooling while the other was put through a cooling tunnel. After the experiment, the tenderness of the meat was measured.

Usage

data(cooling)

Format

A data frame with 18 observations on the following 4 variables.

pig

a numeric vector with the id of the pig

ph

pH concentration level. A factor with levels high low

tunnel

Tenderness observed from tunnel cooling

rapid

Tenderness observed from rapid cooling

References

A. J. Moller and E. Kirkegaard and T. Vestergaard (1987). Tenderness of Pork Muscles as Influenced by Chilling Rate and Altered Carcass Suspension. Meat Science, 27, p. 275--286.

Examples

data(cooling)
hist(cooling$tunnel[cooling$ph=="low"], main="", 
     xlab="Tenderness (low pH)", col="lightgray", ylim=c(0,5), xlim=c(3,9))
hist(cooling$tunnel[cooling$ph=="high"], main="", 
     xlab="Tenderness (high pH)", col="lightgray", ylim=c(0,5), xlim=c(3,9))

hist(cooling$tunnel[cooling$ph=="low"], freq=FALSE, main="", 
     xlab="Tenderness (low pH)", col="lightgray", ylim=c(0,.5), xlim=c(3,9))
hist(cooling$tunnel[cooling$ph=="high"], freq=FALSE, main="", 
     xlab="Tenderness (high pH)", col="lightgray", ylim=c(0,.5), xlim=c(3,9))

plot(cooling$tunnel, cooling$rapid,
     xlim=c(3,9), ylim=c(3,9),
     xlab="Tenderness (tunnel)", ylab="Tenderness (rapid)")

boxplot(cooling$tunnel, cooling$rapid, names=c("Tunnel", "Rapid"),
        ylab="Tenderness score")