Nothing
genOrd <-
function(no.rows, ordPmat, binObj){
ep0 = generate.binary( no.rows, binObj$pvec, binObj$del.next)
Mydata= BinToOrd(binObj$pvec, ordPmat, binObj$Mlocation, ep0)
return(Mydata)
}
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.