# NOT RUN {
data(pts_pop_ex)
data(data_ex_genind)
mat_w <- mat_gen_dist(data_ex_genind, dist = "DPS")
gp <- gen_graph_topo(mat_w = mat_w, topo = "mst")
g <- plot_graph_lg(graph = gp,
crds = pts_pop_ex,
mode = "spatial",
link_width = "inv_w")
# }
Run the code above in your browser using DataLab