data(pts_pop_ex)
suppressWarnings(mat_geo <- mat_geo_dist(pts_pop_ex,
ID = "ID",
x = "x",
y = "y"))
g1 <- gen_graph_thr(mat_w = mat_geo,
mat_thr = mat_geo,
thr = 20000)
g1_df <- graph_to_df(g1,
weight = TRUE)
Run the code above in your browser using DataLab