# Generate data
n <- 10
b_times_n <- (seq(1, n) / n)
lineages_n <- b_times_n
b_times2_n <- b_times_n * b_times_n
lineages2_n <- b_times2_n
# Calculate nLTT
out <- nLTT::nltt_diff_exact_extinct(
event_times = b_times_n,
species_number = lineages_n,
event_times2 = b_times2_n,
species_number2 = lineages2_n,
time_unit = "ago",
distance_method = "abs"
)
Run the code above in your browser using DataLab