Nothing

```
`p2colasr` <-
function (Z, nsim = length(Z))
{
if (Z[1] < 0) {
p1 = rank(Z)[1]/(nsim + 1)
ptodos = 1 - (rank(Z)/(nsim + 1))
if (sum(ptodos[ptodos < p1]) == 0)
p2 = p1
else p2 = p1 + max(ptodos[ptodos < p1])
}
else {
p1 = 1 - rank(Z)[1]/(nsim + 1)
ptodos = rank(Z)/(nsim + 1)
if (sum(ptodos[ptodos < p1]) == 0)
p2 = p1
else p2 = p1 + max(ptodos[ptodos < p1])
}
return(p2)
}
```

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