str(rao)
par(pty = "s")
plot(c(-1.3,1.3),c(-1.4,1.4),type = "n",xaxt = "n",yaxt = "n",xlab = "",ylab = "",
main = "Pigeon Orientation")
symbols(x = 0, y = 0, circles = 1.1,add = TRUE,fg = seq(1:10),inch = FALSE)
points(unlist(sin(rao*pi/180)),unlist(cos(rao*pi/180)),pch = 19,cex = 1.5)
mtext(text = c("North","East","South","West"), side = c(3,4,1,2))
text(x = 0,y = 1.4,"0")
text(x = 1.2,y = 0,"90")
text(x = 0,y = -1.4,"180")
text(x = -1.2,y = 0,"270")
Run the code above in your browser using DataLab