R/print.summary.R

Defines functions print.summary.heckitrob print.summary.heckit5rob print.summary.etregrob

Documented in print.summary.etregrob print.summary.heckit5rob print.summary.heckitrob

print.summary.heckitrob <-
function(x, digits = 4, ...)
{
  cat("Call: \n")
  print(x$call)
  cat(" \n")
  cat("Heckman selection model / robust 2-step M-estimation \n")
  cat(x$nobs, "observations:", x$nobs-x$nobs2, "censored and", x$nobs2, "observed \n" )
  cat("Probit selection equation: \n")
  names(x$coefficients$selection) <- c("Estimate", "Std. Error", "t value", "Pr(>|t|)"," ")
  print(x$coefficients$selection, 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")
}
print.summary.heckit5rob <- function(x, digits = 4, ...)
{
  cat("Call: \n")
  print(x$call)
  cat(" \n")
  cat("Switching regression model / robust 2-step M-estimation \n")
  cat(x$nobs, "observations:", x$nobs1, "in regime 1 and", x$nobs2, "in regime 2\n" )
  cat("Probit selection equation: \n")
  names(x$coefficients$selection) <- c("Estimate", "Std. Error", "t value", "Pr(>|t|)"," ")
  print(x$coefficients$selection, digits = digits)
  cat("Outcome equation, regime 1: \n")
  names(x$coefficients$outcome1) <- c("Estimate", "Std. Error", "t value", "Pr(>|t|)"," ")
  print(x$coefficients$outcome1, digits = digits)
  cat("Outcome equation, regime 2: \n")
  names(x$coefficients$outcome2) <- c("Estimate", "Std. Error", "t value", "Pr(>|t|)"," ")
  print(x$coefficients$outcome2, digits = digits)
  cat("---\n")
  cat("Signif. codes: 0 `***' 0.001 `**' 0.01 `*' 0.05 `.' 0.1 ` ' 1 \n")
  cat(" \n")
  cat("sigma:", x$sigma1, "in regime 1 and", x$sigma2, "in regime 2 \n")
}
print.summary.etregrob <- function(x, digits = 4, ...)
{
  cat("Call: \n")
  print(x$call)
  cat(" \n")
  cat("Endogenous treatment model / Robust 2-step M-estimation \n")
  cat(x$nobs, "observations \n")
  cat("Probit selection equation: \n")
  names(x$coefficients$selection) <- c("Estimate", "Std. Error", "t value", "Pr(>|t|)"," ")
  print(x$coefficients$selection, 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")
}

Try the ssmrob package in your browser

Any scripts or data that you put into this service are public.

ssmrob documentation built on April 2, 2020, 5:07 p.m.