changed name to ltscount (from routeslts) to match cycling_route_analysis_brouter.Rmd
This commit is contained in:
parent
b19add99ac
commit
9959536378
@ -140,7 +140,7 @@ Notes:
|
||||
|
||||
|
||||
## Combine routes with Bike LTS
|
||||
```{r routeslts, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE}
|
||||
```{r ltscount, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE}
|
||||
|
||||
# Count the routes that intersect or overlap with each segment of the bike_tls network.
|
||||
# The intersections have a buffer of 20m
|
||||
@ -150,6 +150,7 @@ bike_lts_buffer["student_use"] <- unlist(lapply(st_intersects(bike_lts_buffer, r
|
||||
|
||||
bike_lts <- left_join(bike_lts, as.data.frame(bike_lts_buffer %>% select(OBJECTID, student_use)), by = "OBJECTID")
|
||||
```
|
||||
Notes: for each segment in bike_lts, this counts how many student's calculated routes intersect with it (within a 20 m buffer)
|
||||
|
||||
Notes:
|
||||
|
||||
|
@ -114,7 +114,7 @@ routes <- bind_rows(routes)
|
||||
|
||||
|
||||
## Combine routes with Bike LTS
|
||||
```{r routeslts, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE}
|
||||
```{r ltscount, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE}
|
||||
|
||||
# Count the routes that intersect or overlap with each segment of the bike_tls network.
|
||||
# The intersections have a buffer of 20m
|
||||
@ -124,6 +124,7 @@ bike_lts_buffer["student_use"] <- unlist(lapply(st_intersects(bike_lts_buffer, r
|
||||
|
||||
bike_lts <- left_join(bike_lts, as.data.frame(bike_lts_buffer %>% select(OBJECTID, student_use)), by = "OBJECTID")
|
||||
```
|
||||
Notes: for each segment in bike_lts, this counts how many student's calculated routes intersect with it (within a 20 m buffer)
|
||||
|
||||
# Make Maps
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user