cycle_edges <- edges.cycle(6)
theta <- seq(0, 2 * pi, length.out = 7)[-7]
initial <- cbind(cos(theta), sin(theta))
prepared <- prepare.landmark.geodesic.kk(
cycle_edges, n = 6, local_nbrs = 2, landmark_count = 2
)
fit <- landmark.geodesic.kk(initial, prepared = prepared, max_iter = 1)
Run the code above in your browser using DataLab