R/selpos.R

Defines functions selpos

Documented in selpos

selpos <-
function(lat, lon = NULL, ind)
{
	if(is.null(lon)) {
		lon <- lat$lon
		lat <- lat$lat
	}
	lat <- lat[ind]
	lon <- lon[ind]
	return(lat, lon)
}

Try the geo package in your browser

Any scripts or data that you put into this service are public.

geo documentation built on May 2, 2019, 5:22 p.m.