Nothing

```
`as.fisher` <-
function (x, ...)
{
if (inherits(x, "fisher"))
return(x)
## is not fisher but a 1 x n data.frame or matrix: matrix is faster
x <- as.matrix(x)
if (!identical(all.equal(x, round(x)), TRUE))
stop("function accepts only integers (counts)")
freq <- x[x > 0]
freq <- table(freq, deparse.level = 0)
nm <- names(freq)
freq <- as.vector(freq)
names(freq) <- nm
class(freq) <- "fisher"
freq
}
```

**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.