R/SSR.R

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

#' SSR
#' to be documented
#' @usage SSR(model)
#' @param model  to be documented
#' @noRd
#' @return to be documented
SSR <-
function (model)
{
    term1 = 0
    term2 = 0
    if (!is.null(model@XV))
        term1 <- rowSums(model@XV * model@Betav)
    if (!is.null(model@XC))
        term2 <- model@XC %*% as.matrix(model@Betac)
    residuals <- model@Y - term1 - term2
    sum(residuals^2)
}