data(Ants_radians)
resantssymmknownmu<-nntsmanifoldnewtonestimationsymmetryknownsymmetryanglemu(data=Ants_radians,
mu=pi, M = 4, iter =1000,gradientstop=1e-10)
resantssymmknownmu
hist(Ants_radians,breaks=seq(0,2*pi,2*pi/13),xlab="Direction (radians)",freq=FALSE,
ylab="",main="",ylim=c(0,.8),axes=FALSE)
nntsplot(resantssymmknownmu$cestimatessym[,2],4,add=TRUE)
nntsplot(resantssymmknownmu$cestimatesnonsym[,2],4,add=TRUE,lty=2)
axis(1,at=c(0,pi/2,pi,6*(pi/4),2*pi),labels=c("0",expression(pi/2),expression(pi),
expression(3*pi/2),expression(2*pi)),las=1)
axis(2)
Run the code above in your browser using DataLab