# your code goes here
Data1<-read.csv("/Users/frank61003/Desktop/GWR/data.csv", header=F, sep=",")
space<-cbind(Data1["V4"],Data1["V5"])
bw1 <- ggwr.sel(V1~V3+V6+V7+V8+V9+V10+V11+V12+V13,data=Data1,coords=space)
gwr <- ggwr(V1~V3+V6+V7+V8+V9+V10+V11+V12+V13,data=Data1,coords=space,
family=poisson(), longlat=TRUE, bandwidth=bw1)