pigeon {SMPracticals}R Documentation

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

Source

Artes, R. (1997) Extens~{o}es da Teoria das Equac{c}~{o}es de Estimac{c}~{a}o Generalizadas a Dados Circulares e Modelos de Dispers~{a}o. Ph.D. thesis, University of S~{a}o 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 )


[Package SMPracticals version 1.2 Index]