Nothing
sortRule <-
function(M,decreasing=TRUE){
qIx = order((1- as.numeric(M[,"err"])),
as.numeric(M[,"freq"]),
-as.numeric(M[,"len"]),
decreasing=decreasing)
return(M[qIx,])
}
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.