R/aic_model.R

In mgwrsar: GWR and MGWR with Spatial Autocorrelation

#' 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
}