Nothing

```
#' @export
sri_1987 <- c(rep(15, 4), rep(16, 9), rep(17, 24), rep(18, 34), rep(19,
68), rep(20, 98), rep(21, 121), rep(22, 155), rep(23, 169),
rep(24, 180), rep(25, 217), rep(26, 214), rep(27, 220), rep(28,
257), rep(29, 218), rep(30, 235), rep(31, 203), rep(32,
239), rep(33, 239), rep(34, 269), rep(35, 215), rep(36,
223), rep(37, 217), rep(38, 255), rep(39, 223), rep(40,
188), rep(41, 178), rep(42, 199), rep(43, 158), rep(44,
202), rep(45, 124), rep(46, 153), rep(47, 112), rep(48,
138), rep(49, 107))
```

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