R/ProbitSimulate.R

In nchenderson/daarem: Damped Anderson Acceleration with Epsilon Monotonicity for Accelerating EM-Like Monotone Algorithms

Defines functions ProbitSimulate

Documented in ProbitSimulate

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)
}