reach_dist <- data.frame(reach = seq(1,5),
dist = c(100, 150, 900, 300, 200))
apportion_web(reach_dist, w = 2) # same as inverse because there's only one dist per reach
apportion_web(reach_dist, w = 2, max_dist = 500)
reach_dist <- data.frame(reach = c("A", "A", "A", "B", "B"),
dist = c(100, 150, 900, 300, 200))
apportion_web(reach_dist, w = 1)
apportion_web(reach_dist, w = 1, max_dist = 500)
Run the code above in your browser using DataLab