R/scaleBranchingtimes.R

`scaleBranchingtimes` <-
function(x, basal = 100)
{
	x <- rev(sort(as.numeric(x)));
	sf <- basal/max(x);
	return(sf*x);

}

Try the laser package in your browser

Any scripts or data that you put into this service are public.

laser documentation built on Jan. 15, 2017, 4:49 p.m.