## Not run:
# x <- list(1)
# x
# rllply(x, function(x){x}, add_notation = TRUE)
#
# x <- list(1, 2, list(31))
# x
# rllply(x, function(x){x}, add_notation = TRUE)
# # the first element is the entire tree
# # after FUN was applied to its root element.
#
# hc <- hclust(dist(USArrests[1:4,]), "ave")
# dend <- as.dendrogram(hc)
# rllply(dend, function(x){attr(x, "height")})
# rllply(dend, function(x){attr(x, "members")})
# ## End(Not run)
Run the code above in your browser using DataLab