Nothing

```
`specnumber` <-
function(x, groups, MARGIN = 1)
{
if (!missing(groups)) {
if (length(groups) == 1)
groups <- rep(groups, nrow(x))
x <- aggregate(x, list(groups), max)
rownames(x) <- x[,1]
x <- x[,-1]
}
if (length(dim(x)) > 1)
apply(x > 0, MARGIN, sum)
else
sum(x > 0)
}
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.