if(interactive()){
data(GH)
swig(GH, sel=which(GH$COMPS=="V" ))
jh = WINGH(GH, sel = which(GH$COMPS=="V" ), WIN = c(3.821281, 12.861820) )
swig(jh)
## compare with:
swig(GH, sel=which(GH$COMPS=="V" ), WIN = c(3.821281, 12.861820))
}
Run the code above in your browser using DataLab