daily pastebin goal
60%
SHARE
TWEET

Untitled

a guest Nov 8th, 2018 92 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. library(sf)
  2. library(tidyverse)
  3.  
  4. load("wind_test.rda")
  5.  
  6. buffer  <- wind.test %>% select(ID) %>%
  7.   st_buffer(dist=1000) %>%
  8.   st_union() %>%
  9.   st_cast("POLYGON") %>%
  10.   st_sf() %>%
  11.   mutate(turbines = st_intersects(buffer, wind.test) %>% map_int(length))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top