time <- sort(branching.times(phy), decreasing = TRUE)
N <- 1:(length(time) + 1)
lines(-c(time, 0), N, type = "S", ...)
}
mltt.plot <- function(phy, ..., dcol = TRUE, dlty = FALSE, legend = TRUE,
time <- sort(branching.times(phy), decreasing = TRUE)
N <- 1:(length(time) + 1)
lines(-c(time, 0), N, type = "S", ...)
}
mltt.plot <- function(phy, ..., dcol = TRUE, dlty = FALSE, legend = TRUE,