## Not run:
# subs<-selpos(pos,,z>6)# Select positions where z>6
#
# The Function is trivially defined as
# function(lat, lon = NULL, ind)
# {
# if(is.null(lon)) {
# lon <- lat$lon
# lat <- lat$lat
# }
# lat <- lat[ind]
# lon <- lon[ind]
# return(lat, lon)
# }
# ## End(Not run)
Run the code above in your browser using DataLab