Nothing

```
simulateObserved <-
function (cdf)
{
n = length (cdf)
tmp = runif (1, min=0, max=1)
obs = 1
for (k in 2:n)
{
if (tmp>cdf[k-1] & tmp<=cdf[k])
obs = k
}
return (obs)
}
```

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