Visualise the GWR models from model.selection.gwr

Description

This function visualises the GWR models from model.selection.gwr.

Usage

model.view.gwr(DeVar, InDeVars, model.list)

Arguments

Author(s)

Binbin Lu binbinlu@whu.edu.cn

See Also

model.selection.gwr, model.sort.gwr

Examples

data(LondonHP)
DM<-gw.dist(dp.locat=coordinates(londonhp))
DeVar<-"PURCHASE"
InDeVars<-c("FLOORSZ","GARAGE1","BLDPWW1","BLDPOSTW")
model.sel<-model.selection.gwr(DeVar,InDeVars, data=londonhp,
kernel = "gaussian", dMat=DM,bw=5000)
model.list<-model.sel[[1]]
model.view.gwr(DeVar, InDeVars, model.list=model.list)

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(GWmodel)
Loading required package: maptools
Loading required package: sp
Checking rgeos availability: TRUE
Loading required package: robustbase
Welcome to GWmodel version 1.2-5.
 Note: The default kernel for all the functions have been set as bisquare from this release
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/GWmodel/model.view.gwr.rd_%03d_medium.png", width=480, height=480)
> ### Name: model.view.gwr
> ### Title: Visualise the GWR models from 'model.selection.gwr'
> ### Aliases: model.view.gwr
> ### Keywords: model, view
> 
> ### ** Examples
> 
> data(LondonHP)
> DM<-gw.dist(dp.locat=coordinates(londonhp))
> DeVar<-"PURCHASE"
> InDeVars<-c("FLOORSZ","GARAGE1","BLDPWW1","BLDPOSTW")
> model.sel<-model.selection.gwr(DeVar,InDeVars, data=londonhp,
+ kernel = "gaussian", dMat=DM,bw=5000)
Now calbrating the model: 
 PURCHASE~FLOORSZ 
Now calbrating the model: 
 PURCHASE~GARAGE1 
Now calbrating the model: 
 PURCHASE~BLDPWW1 
Now calbrating the model: 
 PURCHASE~BLDPOSTW 
Now calbrating the model: 
 PURCHASE~FLOORSZ+GARAGE1 
Now calbrating the model: 
 PURCHASE~FLOORSZ+BLDPWW1 
Now calbrating the model: 
 PURCHASE~FLOORSZ+BLDPOSTW 
Now calbrating the model: 
 PURCHASE~FLOORSZ+BLDPWW1+GARAGE1 
Now calbrating the model: 
 PURCHASE~FLOORSZ+BLDPWW1+BLDPOSTW 
Now calbrating the model: 
 PURCHASE~FLOORSZ+BLDPWW1+BLDPOSTW+GARAGE1 
> model.list<-model.sel[[1]]
> model.view.gwr(DeVar, InDeVars, model.list=model.list)
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>