Nothing
#' aic_model
#' to be documented
#' @usage aic_model(model)
#' @param model to be documented
#' @noRd
#' @return to be documented
aic_model <-
function(model){
n=length(model$Y)
log(model$SSR) + 2*(ifelse(is.null(model$tS),model$edf,model$tS))/n
}
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.