library("chessboard")
# Two-dimensional sampling ----
sites_infos <- expand.grid("transect" = 1:3, "quadrat" = 1:5)
sites_infos
nodes <- create_node_labels(data = sites_infos,
transect = "transect",
quadrat = "quadrat")
edges <- create_edge_list(nodes, method = "pawn", directed = TRUE)
conn_matrix <- connectivity_matrix(edges)
# Convert back to edge list ----
new_edges <- matrix_to_edge_list(conn_matrix)
new_edges
# Check ----
identical(edges, new_edges)
Run the code above in your browser using DataLab