R/gwlars.ssr.R

In wrbrooks/gwselect: Variable selection in Geographically Weighted Regression models

gwlars.ssr = function(bw, x, y, coords, loc, dist, s, mode.select, shrink, verbose, prior.weights, gweight, target, adapt, precondition) {
    gwlars.object = gwlars.fit.inner(x=x, y=y, coords=coords, loc=loc, bw=bw, dist=dist, N=N, s=s, mode.select=mode.select, shrink=shrink, verbose=verbose, gwr.weights=NULL, prior.weights=prior.weights, gweight=gweight, adapt=adapt, mode=mode, precondition=precondition)
    resid = sum(gwlars.object[['resid']]**2)
    if (verbose) {cat(paste('loc:(', paste(loc, collapse=","), '), target: ', target, ', bw:', bw, ', ssr:', resid, ', miss:', abs(resid-target), '\n', sep=""))}
    return(abs(resid-target))
}