SHARE
TWEET

Untitled

a guest Sep 16th, 2019 84 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. add_z <- function(x, z_name){
  2.   st_geometry(x) <- st_sfc(st_multipoint(cbind(st_coordinates(x),
  3.                                                x[[z_name]]))) %>%
  4.     st_cast("POINT")
  5.   return(x)
  6. }
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