From 8941fc4f670c19aaf44efa4ecc6e80852abbe93f Mon Sep 17 00:00:00 2001 From: Bart Hoekstra Date: Fri, 4 Dec 2020 13:57:03 +0100 Subject: [PATCH] Fix missing SEs --- GWmodel/R/gwr.basic.r | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/GWmodel/R/gwr.basic.r b/GWmodel/R/gwr.basic.r index b9ae72c..745a4ca 100644 --- a/GWmodel/R/gwr.basic.r +++ b/GWmodel/R/gwr.basic.r @@ -105,8 +105,8 @@ gwr.basic <- function(formula, data, regression.points, bw, kernel="bisquare", a dp.n<-nrow(data) betas <- matrix(0, nrow=rp.n, ncol=var.n) if (hatmatrix) { - betas.SE <-matrix(nrow=rp.n, ncol=var.n) - betas.TV <-matrix(nrow=rp.n, ncol=var.n) + betas.SE <-matrix(0, nrow=rp.n, ncol=var.n) + betas.TV <-matrix(0, nrow=rp.n, ncol=var.n) } idx1 <- match("(Intercept)", colnames(x)) if(!is.na(idx1))