tsl <- distantia::tsl_initialize(
x = distantia::eemian_pollen,
name_column = "name",
time_column = "time"
) |>
#reduce size to speed-up example runtime
distantia::tsl_subset(
names = 1:3
)
df_momentum <- distantia::momentum(
tsl = tsl
)
#network many to many
sf_momentum <- distantia::momentum_spatial(
df = df_momentum,
sf = distantia::eemian_coordinates,
network = TRUE
)
#network map
# mapview::mapview(
# sf_momentum,
# layer.name = "Importance - Abies",
# label = "edge_name",
# zcol = "importance__Abies",
# lwd = 3
# ) |>
# suppressWarnings()
Run the code above in your browser using DataLab