Nothing
print.summary.StratSel <-
function(x, ...){
print(x$call)
cat("\n")
printCoefmat(x$coefficients, P.values=TRUE, has.Pvalue=TRUE, ...)
writeLines("---")
writeLines(paste("Number of Observations:", x$df, "-- Number of Iterations:", x$nits, sep=" "))
writeLines(paste("AIC:", x$AIC, "-- AIC (small sample correction):", x$AIC.c, sep=" "))
writeLines(paste("Log-Likelihood:", round(x$ll,3), "-- Convergence code:", x$conv, sep=" "))
cat("\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.