print.summary.SL <-
function(x, ...){
cat("Final Stocking Lord Parameter Estimates:", "\n")
cat("\n")
printCoefmat(x$coefficients)
cat("\n")
cat("Starting Values Taken From Mean/Sigma:", "\n")
cat(x$MS.A, x$MS.B, "\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.