cycle_edges <- edges.cycle(6)
theta <- seq(0, 2 * pi, length.out = 7)[-7]
target <- cbind(cos(theta), sin(theta))
diagnostics <- geometry.diagnostics(
target + 0.01, target, cycle_edges,
sample.size.symmetry = 10, sample.size.wedges = 10
)
Run the code above in your browser using DataLab