Nothing
repaint <-
function(otree,regshifts,stem=TRUE){
subtrees<-branches<-regshifts[order(otree@times[match(names(regshifts),otree@nodes)])]
if(stem==FALSE)branches<-branches[which(as.numeric(names(branches))>(otree@nnodes-otree@nterm))]
regs<-paint(otree,subtree=subtrees,branch=branches)
regs[1]<-regshifts[1]
regs<-factor(regs)
regs
}
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.