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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.