Nothing

```
#' @export
thai_1987 <- c(rep(15, 12), rep(16, 21), rep(17, 49), rep(18, 105), rep(19,
121), rep(20, 150), rep(21, 173), rep(22, 229), rep(23, 231),
rep(24, 234), rep(25, 250), rep(26, 265), rep(27, 262), rep(28,
263), rep(29, 280), rep(30, 288), rep(31, 308), rep(32,
251), rep(33, 243), rep(34, 251), rep(35, 265), rep(36,
262), rep(37, 210), rep(38, 211), rep(39, 189), rep(40,
202), rep(41, 168), rep(42, 161), rep(43, 152), rep(44,
188), rep(45, 164), rep(46, 167), rep(47, 180), rep(48,
143), rep(49, 127))
```

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