pigeon {SMPracticals} | R Documentation |
Bearings (degrees) of 29 homing pigeons 30, 60, 90 after their release, and on vanishing from sight.
data(pigeon)
A data frame with 29 observations on the following 4 variables.
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.
Davison, A. C. (2003) Statistical Models. Cambridge University Press. Page 173.
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 )