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)# 'graph' method -> using 'Rgraphviz' package
}
Run the code above in your browser using DataLab