#' @rdname aic.dof
#' @aliases bic.dof
#' @export bic.dof
bic.dof <- function (RSS, n, DoF, sigmahat)
{
bic_temp <- RSS/n + log(n) * (DoF/n) * sigmahat^2
return(bic_temp)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.