if(require(scatterplot3d)) {
X <- osteo$pts[[1]]
plot(X, tick.marks=FALSE, xlab="", ylab="", zlab="",
main="Osteocyte lacunae, animal 1, brick 1",
mar=rep(0.5,4), cex.symbols=1.5, pch=16, type="h")
}
Run the code above in your browser using DataLab