set.seed(1)
x <- raphylo(20)
pruner <- new_aphylo_pruner(x)
# Computing loglike
LogLike(
pruner,
psi = c(.10, .20),
mu_d = c(.90, .80),
mu_s = c(.10, .05),
Pi = .05,
eta = c(.90, .80)
)
dist2root(pruner)
get_postorder(pruner)
Run the code above in your browser using DataLab