Nothing
#' The \emph{isFitLogit} is a simple check if object inherits either "lrm"
#' class or inherits the "glm" class together with a "logit" link
#' function indicating that it is a logistic function.
#'
#' @rdname isFitFn
#'
#' @example inst/examples/isFitLogit_example.R
#'
#' @export
isFitLogit <- function(fit){
if ("lrm" %in% class(fit)) {
return(TRUE)
}
if (inherits(fit, "glm") &&
family(fit)$family == "binomial") {
return(TRUE)
}
return(FALSE)
}
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.