R/getSpeciationtimes.R

In laser: Likelihood Analysis of Speciation/Extinction Rates from Phylogenies

`getSpeciationtimes` <-
function(BranchingTimes)
{
	Tmax <- BranchingTimes[1];
  	SpeciationTimes <- Tmax - BranchingTimes;
  	x <- c(SpeciationTimes[1], SpeciationTimes);
  	x;
}