cycle_edges <- edges.cycle(6)
cycle_lengths <- seq(0.8, 1.3, length.out = nrow(cycle_edges))
levels <- build.weighted.misf(
edges = cycle_edges, n = 6, edge_weights = cycle_lengths,
num_init = 3, num_nbrs = 2, seed = 1
)
Run the code above in your browser using DataLab