zuidhof.broiler {agridat} R Documentation

## Daily weight, feed, egg measurements for a broiler chicken

### Description

Daily weight, feed, egg measurements for a broiler chicken

### Format

A data frame with 59 observations on the following 6 variables.

`bw`

Body weight, grams

`targetbw`

Target body weight, grams

`adfi`

Average daily feed intake, grams

`adg`

Average daily gain, grams

`eggwt`

Egg weight, grams

`age`

Age, days

### Details

Using graphs like the one in the examples section, the authors discovered that a drop in body weight commonly occurs around the time of first egg production.

Used with permission of Martin Zuidhof.

### Source

Martin J. Zuidhof and Robert A. Renema and Frank E. Robinson, (2008). Understanding Multiple, Repeated Animal Measurements with the Help of PROC GPLOT. SAS Global Forum 2008, Paper 250-2008. https://support.sas.com/resources/papers/proceedings/pdfs/sgf2008/250-2008.pdf

### Examples

```
library(agridat)

data(zuidhof.broiler)
dat <- zuidhof.broiler

dat <- transform(dat, age=age/7) # Change days into weeks

# Reproducing figure 1 of Zuidhof et al.

# Plot using left axis
op <- par(mar=c(5,4,4,4))
plot(bw~age, dat, xlab="Age (weeks)", ylab="Bodyweight (g)",
main="zuidhof.broiler",
xlim=c(20,32), ylim=c(0,4000), pch=20)
lines(targetbw~age, subset(dat, !is.na(targetbw)), col="black")

# Now plot using the right axis
par(new=TRUE)
xlab="", ylab="", xlim=c(20,32), xaxt="n",yaxt="n",
ylim=c(-50,175), type="s", lty=2)
axis(4, at=c(-50,-25,0,25,50,75,100,125,150,175), col="red", col.axis="red")
mtext("Weight (g)", side=4, line=2, col="red")