R/MI.sf.R

In spfilteR: Semiparametric Spatial Filtering with Eigenvectors in (Generalized) Linear Models

#' @name MI.sf
#'
#' @title Moran Coefficient of the Spatial Filter
#'
#' @description Computes the Moran coefficient of the spatial filter.
#'
#' @param gamma vector of regression coefficients associated with
#' the eigenvectors
#' @param evMI Moran coefficient of eigenvectors
#'
#' @return Moran coefficient of the spatial filter.
#'
#' @author Sebastian Juhl
#'
#' @references Le Gallo, Julie and Antonio Páez (2013): Using synthetic
#' variables in instrumental variable estimation of spatial series models.
#' Environment and Planning A: Economy and Space, 45 (9): pp. 2227 - 2242.
#'
#' @seealso \code{\link{lmFilter}}, \code{\link{glmFilter}}, \code{\link{getEVs}},
#' \code{\link{MI.ev}}
#'
#' @export

MI.sf <- function(gamma, evMI) {
  sfMI <- 1 / sum(gamma^2) * sum(gamma^2 * evMI)
  return(sfMI)
}