# NOT RUN {
if(require(spatstat)) {
pyr <- pyramidal
pyr$grp <- abbreviate(pyramidal$group, minlength=7)
plot(pyr, quote(plot(Neurons, pch=16, main=grp)), main="Pyramidal Neurons")
}
# }
Run the code above in your browser using DataCamp Workspace