R/param.bprobit.R

In IQSS/Zelig4Choice: Zelig Choice Models

#' @S3method param bprobit
param.bprobit <- function(obj, num=1000, ...) {
  cov <- vcov(obj)
  res <- coef(obj)
  
  list(
       simulations = mvrnorm(n=num, mu=res, Sigma=cov),
       alpha = NULL,
       linkinv = binom2.rho()@linkinv
       )
}