R/print.summary.epmrob.R

In epmrob: Robust Estimation of Probit Models with Endogeneity

print.summary.epmrob <-
function(x, digits = 4, ...) {
  cat("Call: \n")
  print(x$call)
  cat(" \n")
  cat("Endogenous probit model / robust 2-step M-estimation \n")
  #cat(x$nobs, "observations:", x$nobs-x$nobs2, "censored and", x$nobs2, "observed \n" )
  cat("Reduced form equation: \n")
  names(x$coefficients$reduced) <- c("Estimate", "Std. Error", "t value", "Pr(>|t|)"," ")
  print(x$coefficients$reduced, digits = digits)
  cat("Outcome equation: \n")
  names(x$coefficients$outcome) <- c("Estimate", "Std. Error", "t value", "Pr(>|t|)"," ")
  print(x$coefficients$outcome, digits = digits)
  cat("---\n")
  cat("Signif. codes: 0 `***' 0.001 `**' 0.01 `*' 0.05 `.' 0.1 ` ' 1 \n")
#  cat(" \n")
#  cat("sigma ", x$sigma, " \n")
}