shipunov (version 1.3)

Rpart2newick: Converts 'rpart' object into Newick tree

Description

Converts 'rpart' object into Newick tree

Usage

Rpart2newick(rpart.object)

Arguments

rpart.object

'rpart' object, output of rpart::rpart()

Value

Newick tree (text string).

Details

Inspired by 'shaunpwilkinson/rpart2dendro.R' gist. Keeps only tip labels.

Examples

# NOT RUN {
library(rpart)
fit <- rpart(Kyphosis ~ Age + Number + Start, data=kyphosis)
plot(fit); text(fit)
library(ape)
plot(read.tree(text=Rpart2newick(fit)))
# }