Nothing

```
### Trigonometric functions for MathML evaluation
acot <- function(x) atan(1/x)
acoth <- function(x) atanh(1/x)
acsc <- function(x) asin(1/x)
acsch <- function(x) asinh(1/x)
asec <- function(x) acos(1/x)
asech <- function(x) acosh(1/x)
cot <- function(x) 1/tan(x)
coth <- function(x) 1/tanh(x)
csc <- function(x) 1/sin(x)
csch <- function(x) 1/sinh(x)
sec <- function(x) 1/cos(x)
sech <- function(x) 1/cosh(x)
```

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