set.seed(20250411)
# von Mises distribution
x_vm <- rvm(100, mean = 0, kappa = 2)
circular_qqplot(x_vm, pch = 20)
x_wcauchy <- rwcauchy(100, mean = 0, rho = 0.5)
circular_qqplot(x_wcauchy, pch = 20)
# circular uniform data
x_cunif <- rcunif(100)
circular_qqplot(x_cunif, pch = 20)
Run the code above in your browser using DataLab