data(Turtles_radians)
#Empirical analysis of data
Turtles_hist<-hist(Turtles_radians,breaks=10,freq=FALSE)
#Estimation of the NNTS density with 3 componentes for data
est<-nntsmanifoldnewtonestimation(Turtles_radians,3,iter=200)
est
#plot the histogram
plot(Turtles_hist, freq=FALSE)
#add the estimated density to the histogram
nntsplot(est$cestimates[,2],3,add= TRUE)
Run the code above in your browser using DataLab