Nothing

```
whichIn <- function(pos,bounds) {
a <- c(-Inf,bounds,Inf,pos)
b <- c(1:(length(bounds)+2),rep(0,length(pos)))
h1 <- order(a)
hr <- b[h1]
intpos <- cummax(hr)[which(hr==0)]-1
intpos[intpos==0] <- -Inf
intpos[intpos==length(bounds)] <- Inf
intpos
}
```

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