Nothing
index.mat.generation <-
function(word.vec,pos.vec){
mat.index<-matrix(0,nrow=length(word.vec),ncol=length(pos.vec),dimnames=list(word.vec,pos.vec))
flat.index<-cbind(1:length(mat.index),rep(word.vec,length(pos.vec)),rep(pos.vec,each=length(word.vec)))
return(list(mat=mat.index,flat=flat.index))
}
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.