set.seed(1234)
tree.K <- gen.equal.star.anc.dec(6, rep(3:5, 2),
rate.f = 0.7)
X.class <- as.numeric(gsub("d(.).(.)", "\\1",
tree.K$equal.star$tip.label))
# Plot results
plotnj(tree.K$equal.star, X.class, type = "p",
edge.width.class = 2, main = "equal.star")
axis(1)
Run the code above in your browser using DataLab