Nothing
#' @rdname get_coef
#' @export
get_coef.brmultinom <- function(model, ...) {
out <- insight::get_parameters(model)
out <- stats::setNames(out$Estimate,
sprintf("%s:%s", out$Response, out$Parameter))
return(out)
}
#' @include methods_nnet.R
#' @rdname get_predict
#' @export
get_predict.brmultinom <- get_predict.multinom
#' @include get_group_names.R
#' @include methods_nnet.R
#' @rdname get_group_names
#' @export
get_group_names.bracl <- get_group_names.multinom
#' @rdname get_coef
#' @export
get_coef.bracl <- function(model, ...) {
stats::coef(model)
}
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.