# NOT RUN {
data(Simp)
plot(Simp)
Simp.VT <- GetVT(Simp)
head(Simp.VT)
# Distribution of estimated speeds
hist(Simp.VT$V, col="grey", breaks=20)
# Distribution of turning angles
if (requireNamespace("circular", quietly = TRUE))
circular::rose.diag(Simp.VT$Theta, bins=24) else
hist(Simp.VT$Theta)
# }
Run the code above in your browser using DataLab