## Returns return (error) code
returnCode <- function(x, ...)
UseMethod("returnCode")
returnCode.default <- function(x, ...)
x$returnCode
returnCode.maxLik <- function(x, ...)
x$code
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.