Nothing
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")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.