Nothing
getboundInd<-function(DM=NULL){
Ind<-1
if(is.null(DM)){
Ind<-NULL
} else if(length(dim(DM))){
uniDM <- matrix(unique(DM),ncol=dim(DM)[2])
Ind<-apply(matrix(apply(DM,1,function(x) apply(uniDM,1,function(y) all(y==x))),dim(uniDM)[1],dim(DM)[1]),2,function(x) which(x))
}
Ind
}
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.