# knitr::opts_chunk$set(
#   collapse = TRUE,
#   comment = "#>"
# )
library(kstMatrix)
library(grDevices)
library(sets)
library(pks)

# litedown::include_graphics("kstMatrixClasses.png")

plot(xpl$space)
plot(xpl$sr)

plot(xpl$sr, colors="#aaffaa", vertexshape="box")

plot(kmneighbourhood(c(1,1,0,0), xpl$space, include=TRUE), state=c(1,1,0,0), edgelabel=TRUE)

plot(xpl$space, horizontal=TRUE, arrowtail="open")
plot(xpl$space, arrowhead="empty")