data(build)
location0 = rgeos::gCentroid(build)
svf = SVF(location0, build, "BLDG_HT")
location1 = raster::shift(location0, 0, -15)
svf1 = SVF(location1, build, "BLDG_HT")
location2 = raster::shift(location0, -10, 20)
svf2 = SVF(location2, build, "BLDG_HT")
plot(build)
plot(location0, add = TRUE)
plot(location1, add = TRUE)
plot(location2, add = TRUE)
raster::text(location0, round(svf, 2), pos = 3)
raster::text(location1, round(svf1, 2), pos = 4)
raster::text(location2, round(svf2, 2), pos = 3)
Run the code above in your browser using DataLab