Nothing
calc.numcats <-
function(edta) {
ssnos <- unique(edta$SjNo)
np <- length(ssnos)
numcat <- array(NA,np)
for (i in 1:np) {
es1 <- edta[edta$SjNo == ssnos[i],]
numcat[i] <- length(unique(es1$CategoryNo))
}
numcat
}
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.