mifFile <- system.file(
"extdata", "testdata", "simple",
"simple_interior.mif",
package = "alcyon"
)
sfMap <- st_read(mifFile,
geometry_column = 1L, quiet = TRUE
)
shapeMap <- as(sfMap[, vector()], "ShapeMap")
isovist(
shapeMap,
x = c(3.01, 1.3),
y = c(6.70, 5.2),
angle = 0.01,
viewAngle = 3.14,
FALSE
)
Run the code above in your browser using DataLab