Nothing
leafnum<-function(nnum){
#compute number of layers of the final tree
nlayer<-floor(log2(max(nnum)))
#order the leafs
oleaf<-numeric(length(nnum))
for (i in 1:length(nnum)){
oleaf[i]<-nnum[i]*2^(nlayer-floor(log2(nnum[i])))
}
index<-sapply(1:length(oleaf),function(kk,vec){which(sort(vec)== vec[kk])},vec=oleaf )
return(order(index))
}
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.