Nothing
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
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.