私は R を初めて使用し、Roger Bivand によって R 用に開発されたコードを使用して、地理的に重み付けされた回帰を計算しようとしています。コードの説明については、ヘルプ (gwr) を参照してください。教授の助けを借りて、適応帯域幅で動作させることができました。
ライブラリ(GWモデル)
DM<-gw.dist(dp.locat=coords)
adapt.bs1 <- gwr.sel(OnTer_tory ~ CL + cinc + Allie_thUS + Island + Landlocked, adapt = TRUE, method = "cv", gweight = gwr.bisquare, coords = coords)
gwr1 <- gwr(OnTer_tory ~ CL + cinc + Allie_thUS + Island + Landlocked, adapt = adapt.bs1, gweight = gwr.bisquare, coords = coords, hatmatrix = TRUE)
ただし、固定帯域幅で試してみると: fixed.bs1 <- gwr.sel(OnTer_tory ~ CL + cinc + Allie_thUS + Island + Landlocked, adapt = FALSE, method = "cv", gweight = gwr.bisquare, coords = coords )
gwr2 <- gwr(OnTer_tory ~ CL + cinc + Allie_thUS + Island + Landlocked, adapt = fixed.bs1, gweight = gwr.bisquare, coords = coords, hatmatrix = FALSE)
次のエラーが表示されます: gwr2 <- gwr(OnTer_tory ~ CL + cinc + Allie_thUS + Island + Landlocked, + adapt = fixed.bs1, gweight = gwr.bisquare, coords = coords, hatmatrix = FALSE) エラー: (adapt <= 1) 真ではない
私は何を間違っていますか？