Nothing

```
plott <-
function(data, x, L){
ddx <- array(0, dim = c(L, 1))
for(i in 1 : (length(x)- 1)){
ddx[x[i] : (x[i + 1] - 1), ] <- (mean(data[x[i] : (x[i + 1] - 1), 1]))
}
return(ddx)
}
```

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