kappas <- runif(1000, 0.01, 100)
# calcualte SD (in radians)
SDs <- k2sd(kappas)
# transform SDs from radians to degrees
SDs_degress <- SDs * 180 / pi
# plot the relationship between kappa and circular SD
plot(kappas,SDs)
plot(kappas,SDs_degress)
Run the code above in your browser using DataLab