Nothing
rMIG <-
function(epsilon, Tau, mu) {
## generating random number from inverse-gaussian mixture dist'n
x1 <- rIG(epsilon, Tau)
x2 <- rchisq(1, 1)
x3 <- x2 * Tau * (epsilon^2)
u2 <- runif(1, 0, 1)
xx <- x1
if(u2 < mu) { xx <- x1 + x3 }
return(as.numeric(xx))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.