Nothing
## File Name: tam_max_categories.R
## File Version: 0.06
tam_max_categories <- function(resp)
{
if (is.vector(resp)){
resp <- matrix(resp, ncol=1)
}
I <- ncol(resp)
if (I>1){
res <- apply( resp, 2, max, na.rm=TRUE )
} else {
res <- max(resp[,1], na.rm=TRUE)
}
return(res)
}
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.