SMPracticals (version 1.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)

source

Artes, R. (1997) Extensoes da Teoria das Equacoes de Estimacao Generalizadas a Dados Circulares e Modelos de Dispersao. Ph.D. thesis, University of Sao Paulo.

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 )