gwr.res2 <- gwr.basic(Yield_Detrend~Tsfc_4_10+PCP_IN_7_8+PCP_IN_4_6, data = Yield.spdf.sub,kernel = "bisquare", adaptive = TRUE, bw=50, F123.test = TRUE)

mgwr.res2 <-gwr.mixed(Yield_Detrend~Tsfc_4_10+Pcp_30D_LT_2IN_4+PCP_IN_7_8
                  +Elevation, fixed.vars=c("Pcp_30D_LT_2IN_4", "Elevation"),data = Yield.spdf.sub,kernel = "bisquare", adaptive = TRUE, bw=50, diagnostic=T)