mesh_edges <- edges.mesh(4, 4)
prepared <- prepare.misf.geodesic.kk(
mesh_edges, n = 16, num_init = 4,
top_level_mode = "skip", seed = 1
)
coords <- matrix(seq_len(32), nrow = 16, ncol = 2)
score <- score.misf.geodesic.kk(coords = coords, prepared = prepared)
Run the code above in your browser using DataLab