R/lineages.R

Defines functions lineages

lineages <-
function(x,t){
	lin<-c(length(x)+1)
	if (length(t)>1) {
		for (j in 2:length(t)){
			lin<-c(lin, (1+length(which(x[]>t[j]))))
		}
	}
	lin
	}

Try the TreePar package in your browser

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

TreePar documentation built on May 1, 2019, 9:20 p.m.