r <- rvmises(200, kappa = 1.0)
Rs <- genR(r)
plot(Rs, center = mean(Rs), show_estimates = "proj.mean", shape = 4)
# \donttest{
# 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)
) +
ggplot2::aes(size = Z, alpha = Z) +
ggplot2::scale_size(limits = c(-1, 1), range = c(0.5, 2.5))
# }
Run the code above in your browser using DataLab