r <- rvmises(200, kappa = 1.0)
Rs <- genR(r)
plot(Rs, center = mean(Rs), show_estimates = "proj.mean", shape = 4)
## Not run:
# # Z is computed internally and contains information on depth
# plot(Rs, center = mean(Rs), show_estimates = c("proj.mean", "geom.mean"),
# label_points = sample(LETTERS, 200, replace = TRUE)) + aes(size = Z, alpha = Z) +
# scale_size(limits = c(-1, 1), range = c(0.5, 2.5))
#
# plot(Rs, center = mean(Rs), interactive = TRUE)## End(Not run)
Run the code above in your browser using DataLab