Nothing
getwm <-
function(orders,skeleton){
d<-ncol(orders)
s<-nrow(orders)
alpha<-matrix(0,nrow=s,ncol=d)
for(j in 1:s){
alpha[j,]<-skeleton[order(orders[j,])]
}
alpha
}
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.