# \donttest{
data(example_watershed)
data(SpParamsMED)
# Transform to UTM31
example_watershed_utm31 <- sf::st_transform(example_watershed, crs = 32631)
# Estimate seed production and dispersal over the watershed
seedbank_list <- dispersal(example_watershed_utm31, SpParamsMED)
seedbank_list[[1]]
# Transform to UTM31
example_ifn_utm31 <- sf::st_transform(example_ifn, crs = 32631)
# Estimate seed production and dispersal over the set of forest inventory plots
seedbank_list <- dispersal(example_ifn_utm31, SpParamsMED)
seedbank_list[[1]]
# }
Run the code above in your browser using DataLab