Nothing
NumCat <-
function(ColDes,DataMat,NADes){
#NADes is the value for NA often -99
ColDes=ColDes[[1]]
DataVec=DataMat[,ColDes]
CatNum=length(unique(DataVec[which((DataVec)!=NADes)]))
return(CatNum)}
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.