data(Amesbury)
distance_matrix <- compute_distance_matrix(Amesbury$coords[1:30,], add.noise = TRUE)
my.gwl.fit <- gwl_fit(bw= 20,
x.var = Amesbury$spe.df[1:30,],
y.var = Amesbury$WTD[1:30],
dist.mat = distance_matrix,
adaptive = TRUE,
kernel = "bisquare",
alpha = 1,
progress = TRUE)
if(requireNamespace("maps")){
plot_gwl_map(my.gwl.fit, column = "NEB.MIN")
}
Run the code above in your browser using DataLab