install.packages( "packageName" )
install.packages( "packageName", repos="http://R-Forge.R-project.org" )
Selection: C = 1 if Xa + U > 0; else C = 0 Outcome: Y = 1 if Zb + V > 0; else Y = 0 const <- list() const$"(Intercept)" <- diag(3) const$x <- as.matrix(c(1,0,0)) const$z <- as.matrix(c(0,1,0)) const$C <- as.matrix(c(0,1,0)) fit <- vglm(cbind(C, y) ~ x + z + C, binom2.rho(zero=3),control=vglm.control(maxit=maxit),constraints=const) constraints(fit)Furthermore, he made us aware of that the SemiParBIVProbit function in the SemiParBIVProbit package also can estimate such models.