
if(require("Matrix")) {
trMatrix <- classTree("Matrix")
trMatrix
RtrM <- mRagraph(trMatrix)
RtrM # (the show method will hopefully improve)
str(RtrM, max=2) # shows a bit more
plot(RtrM) ## almost the same as
plotRag(RtrM, subArgs=.optRagargs(adj = 0.5))
## which just gives " nodes with edges"
}
Run the code above in your browser using DataLab