# NOT RUN {
library(bnspatial)
data(ConwyData)
list2env(ConwyData, environment())
ls()
## The network nodes and states
LandUseChange$universe$levels
## Lookup list relating raster values and network nodes
LUclasses
## Table of evidence extracted from input spatial data
head(evidence, 12)
## The input spatial data (raster format)
par(mfrow=c(2,2))
raster::plot(ConwyLU)
raster::plot(ConwySlope)
raster::plot(ConwyStatus)
## The input spatial data (vector format)
Conwy <- sf::st_read(system.file("extdata", "Conwy.shp", package = "bnspatial"), quiet = TRUE)
# plot(Conwy) # May be slow to show up
# }
Run the code above in your browser using DataLab