Nothing
ordermatrix <- function(input,by){
ranks <- rank(as.numeric(input[,by]),ties.method="first")
output <- input[order(ranks),]
output
}
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.