13 lines
462 B
R
13 lines
462 B
R
library(mgwrsar)
|
|
colnames(sdf@data)
|
|
sdata <- sdf@data
|
|
scoord <- sdf@coord
|
|
mgwrsarmod <- MGWRSAR(log(ar)~log(ater)+log(eter+1)++log(tomkoz+1)+as.factor(ker),sdata,scoord,kernels=c('gauss'),H=20)
|
|
summary_mgwrsar(mgwrsarmod)
|
|
plot_mgwrsar(mgwrsarmod,type="B_coef",var='ater')
|
|
leaflet(mgwrsarmod) |>
|
|
addCircles(lng=mgwrsarmod$data$lon,lat=mgwrsarmod$data$lat,radius = 10,fillColor = mgwrsarmod$residuals
|
|
,weight = 0) |>
|
|
addTiles()
|
|
colnames(mgwrsarmod$Betav)
|