SMPracticals (version 1.4-3.1)

pigeon: Homing Pigeon Data

Description

Bearings (degrees) of 29 homing pigeons 30, 60, 90 after their release, and on vanishing from sight.

Usage

data(pigeon)

Format

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

s30

Bearing after 30 seconds

s60

Bearing after 60 seconds

s90

Bearing after 90 seconds

van

Bearing on vanishing from sight

References

Davison, A. C. (2003) Statistical Models. Cambridge University Press. Page 173.

Examples

data(pigeon)
plt <- function( ang, r=c(1,2,3,4), lty=1,... )
{
  si <- sin(2*pi*ang/360)
  co <- cos(2*pi*ang/360)
  points( r*si,r*co )
  lines( c(0,r*si),c(0,r*co),...)
}
par(pty="s")
plot(c(0,0),c(0,0),xlim=c(-4,4),ylim=c(-4,4),
    xlab="Easting",ylab="Northing")
for (i in 1:nrow(pigeon)) plt( pigeon[i,],col=i )