Nothing
.splitQuick<-function(r) {
rn3<-substr(rownames(r),1,3)
split.matrix<-split.data.frame
rr<-split(r,factor(rn3))
rr<-unlist(lapply(rr,FUN=function(u) split(u,rownames(u))),recursive=FALSE)
rr
}
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.