# NOT RUN {
# load sample data set
data(amador)
# convert into adjacency matrix
m <- component.adj.matrix(amador)
# plot network diagram, with Amador soil highlighted
plotSoilRelationGraph(m, s='amador')
# }
Run the code above in your browser using DataLab