# NOT RUN {
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)
# }
Run the code above in your browser using DataLab