"raldous" <-
function(tip.number){
if (tip.number < 1 | tip.number!=floor(tip.number)){
stop("tip.number must be an integer greater than 1")
}
res=rtreeshape(n=1, tip.number=tip.number, model="aldous")
res
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.