RProof
Marshhhhh opened this issue · comments
library(prof.tree)
pr <- prof.tree(tmp)
print(pr, limit = NULL)
cols <- colorRampPalette(c("green", "red"))(101)
SetNodeStyle(pr,
style = "filled,rounded",
shape = "box",
fontname = "helvetica",
fillcolor = function(node) cols[round(node$percent * 100) + 1],
tooltip = function(node) node$real)
plot(pr)