Nothing
fsOrder <- function(factorScores){
m=ncol(factorScores)
F=list(); length(F)=m
for (i in 1:m){
orderI=order(factorScores[,i], decreasing = T);
F[[i]]=factorScores[orderI,]
}
orderedFS=F
}
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.