Nothing
order.fdata<-function(y,fdataobj,na.last = TRUE, decreasing = FALSE){
or<-order(y,na.last=na.last,decreasing=decreasing)
fdataobj$data<-fdataobj$data[or,]
fdataobj
}
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.