Nothing
ProbitSimulate <- function(beta.vec, X) {
n <- nrow(X)
lin.pred <- X%*%beta.vec
pp <- pnorm(lin.pred)
UU <- runif(n)
yy <- rep(0, n)
yy[UU < pp] <- 1
return(yy)
}
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.