data(sandhoppers)
attach(sandhoppers)
library(NPCirc)
saltator=circular(angle[(species=="salt")],type="angles",units="radians")
brito=circular(angle[(species=="brito")],type="angles",units="radians")
library(NPCirc)
oldpar<-par(mfrow=c(1,2))
plot(saltator)
plot(brito)
par(oldpar)
Run the code above in your browser using DataLab