pn.spine=spine(Cell07PNs[[1]])
# \donttest{
plot3d(Cell07PNs[[1]])
plot3d(pn.spine, lwd=4, col='black')
# }
# just extract length
spine(Cell07PNs[[1]], rval='length')
# same result since StartPoint is included in longest path
spine(Cell07PNs[[1]], rval='length', UseStartPoint=TRUE)
# extract everything but the spine
antispine=spine(Cell07PNs[[1]], invert=TRUE)
# \donttest{
plot3d(Cell07PNs[[1]])
plot3d(antispine, lwd=4, col='red')
# }
Run the code above in your browser using DataLab