# NOT RUN {
### Demonstrate tree
if(require(tree)){
require(ggplot2)
require(MASS)
data(cpus, package="MASS")
cpus.ltr <- tree(log10(perf) ~ syct+mmin+mmax+cach+chmin+chmax, cpus)
tree_data <- dendro_data(cpus.ltr)
ggplot(segment(tree_data)) +
geom_segment(aes(x=x, y=y, xend=xend, yend=yend, size=n),
colour="lightblue") +
scale_size("n") +
geom_text(data=label(tree_data),
aes(x=x, y=y, label=label), vjust=-0.5, size=4) +
geom_text(data=leaf_label(tree_data),
aes(x=x, y=y, label=label), vjust=0.5, size=3) +
theme_dendro()
}
# }
Run the code above in your browser using DataLab