#----------------------------------------------------------------------------#
#' Calculate the pseudo-R2 value for a logistic model.
#'
#' @export
#' @param model Logistic regression model [model].
#' @return
#' @examples
pseudo_r2 <- function(model) {
#mcfadden
temp <- 1-(model$fit$deviance/model$fit$null.deviance)
return(temp)
}
#----------------------------------------------------------------------------#
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.