R/lineages.R

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
	}
tanja819/TreePar documentation built on May 31, 2019, 2:57 a.m.