# NOT RUN {
A <- solist(finpines=finpines, cells=cells)
A
unstack(A)
B <- layered(fin=finpines, loc=unmark(finpines),
plotargs=list(list(), list(pch=16)))
B
plot(B)
unstack(B)
plot(unstack(B))
# }
Run the code above in your browser using DataLab