Nothing
ProbitUpdate <- function(beta.hat, X, y) {
linear.pred <- as.vector(X%*%beta.hat)
ZZ <- linear.pred + y*InvMillsRatio(linear.pred, lt=FALSE) - (1 - y)*InvMillsRatio(linear.pred, lt=TRUE)
newbeta.hat <- solve(crossprod(X, X), crossprod(X, ZZ))
return(c(newbeta.hat))
}
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.