## Not run:
# 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))
#
#
#
# ## End(Not run)
Run the code above in your browser using DataLab