R/pppbound.R

In ccebra/Divvy-Data: Data package of Divvy bike ridership in Chicago

pppbound <- function(df){
  boundary <- df
  boundary <- sf::st_transform(boundary, crs=3435)
  boundary.sp <- sf::as_Spatial(boundary)
  pboundary <- maptools::as.owin.SpatialPolygons(boundary.sp)

  pboundary
}