R/aicc_f.R

In mgwrsar: GWR, Mixed GWR and Multiscale GWR with Spatial Autocorrelation

#' aicc_f
#' to be documented
#' @usage aicc_f(e,ts)
#' @param e  residuals
#' @param ts  trace(S)
#' @noRd
#' @return to be documented
aicc_f <-
  function(e,ts,n){
    n=length(e)
    #n*log(sum(e^2)/n)+n*log(2*pi)+n*(n+ts)/(n-2-ts)
    n*log(sum(e^2)/n)+n*log(2*pi)+n*(n+ts)/(n-1-ts)
  }