Nothing

```
kappa_p <- function( p, n1, n2 = n1 ) {
n <- n1 + n2
t <- qt( 1 - p/2, df = n - 2 )
kappa_t( t, n1, n2 )
}
kappa_t <- function( t, n1, n2 = n1 ) {
n <- n1 + n2
sqrt( n * (n-1) * t^2 / ( n1 * n2 * ( n - 2 + t^2 ) ) )
}
```

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