coef.maxim <- function( object, ... ) {
return( object$estimate )
}
coef.maxLik <- function( object, ... ) {
return( object$estimate )
}
coef.summary.maxLik <- function( object, ... ) {
result <- object$estimate
return( result )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.