Nothing
#' @title Reverse Fisher Matrix
#'
#' @description This function allows you to calculate Fisher Information Matrix using "lm" and "glm" objects.
#'
#' @param model a "lm" or "glm" object
#'
#' @details
#' Calculates Fisher Information Matrix using "lm" and "glm" objects. It uses
#'
#' @importFrom stats logLik vcov var
#'
#' @return a booster object with below components.
#' \item{n_train}{Number of cases in the input dataset.}
#'
#' @keywords internal
#' @export
reverse_fisher <- function(model){
cov_coef <- vcov(model)
n <- length(model$residuals)
lower_right <- 2*var(model$residuals)^2/n
as.matrix(Matrix::bdiag(cov_coef, lower_right))
}
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.