Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ##BUILDINGS DATA
- buildings_data<-readOGR("buildings.shp")
- buildings<- spTransform(buildings, CRS("+proj=utm +zone=45 +a=6377299.151
- +b=6356098.145120132
- +towgs84=295,736,257,0,0,0,0 +units=m +no_defs "))
- ##LATITUDES/LONGITUDES DATA
- locations<-read.csv("20190712033434-47083-data.csv")
- locations <- SpatialPointsDataFrame(coords = locations, data = locations,
- proj4string =
- CRS("+proj=longlat +datum=WGS84"))
- locations<- spTransform(locations, CRS("+proj=utm +zone=45 +a=6377299.151
- +b=6356098.145120132
- +towgs84=295,736,257,0,0,0,0 +units=m +no_defs "))
- minimum_distance<- apply(gDistance(locations, buildings,byid=TRUE),2,min)
- Error in RGEOSDistanceFunc(spgeom1, spgeom2, byid, "rgeos_distance") :
- negative length vectors are not allowed
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement