selpts                package:nenhum                R Documentation



Description:

Seleciona coordenadas dos dados(xydata) distribuidos em torno de um transecto (x1, y1, x2, y2) a partir de uma distância estabelecida (dist). Retorna um data frame com os pontos selecionados e os demais dados associados a eles. Também plota o transecto gerado, os pontos selecionados e os pontos excluídos.

Usage:

selpts = function (xydata, dist=1 , x1, y1, x2, y2, np=100)

Arguments:

xydata	uma matrix ou um data frame contendo as coordenadas geográficas em graus decimais (linhas com NA são omitidas). As coordenadas devem seguir esta ordem: LONGITUDE, LATITUDE, ...

dist	distancia em quilômetros dentro da qual as coordenadas de xydata devem estar para serem selecionadas.

x1	coordenada longitudinal do ponto mais a esquerda do transecto.

y1	coordenada latitudinal do ponto mais a esquerda do transecto.

x2	coordenada longitudinal do ponto mais a direita do transecto.

y2	coordenada latitudinal do ponto mais a direita do transecto.

np	número de pontos usados para construir o transecto (ver detalhes).

Details:

selpts seleciona as coordenadas calculando a distancia euclidiana entre as coordenadas dos pontos do transecto e as coordenadas dos dados. O número de pontos que compõem o transecto é específicado em "np", então a precisão da medida de distância dos dados ao transecto depende do valor de "np" e da escala dos dados.

selpts remove todas as linhas que possuem NA. Logo, elas não serão selecionadas mesmo que estejam dentro da distancia estabelecida.

selpts plota os pontos não selecionados, os pontos selecionados, e o transecto a partir do qual a distancia foi calculada. Os pontos são, respectivamente: circulo aberto, circulo fechado, circulo vermelho.

Value:

Retorna um data.frame de xydata com apenas os pontos que estão dentro da distância especificada e suas variáveis.


Note:

Para selpts funcionar o pacote "sp"(http://r-spatial.sourceforge.net/) deve estar instalado.

Author(s):

Ricardo Fernandes Campos Junior
Laboratório de Genética e Evolução Molecular de Aves - Departamento de Genética e Biologia Evolutiva, Universidade de São Paulo.
ricardofcj@gmail.com


References:

http://r-spatial.sourceforge.net/

See Also:

'spDists' do pacote "sp" para detalhes de como são calculadas as distâncias.


Examples:

### Exemplo 1, sem NA
x <- sample(runif(50, -58, -52))
y <- sample(runif(50, -30, -20))
a <- sample(seq(2, 5, length=50))
xy1 = data.frame(x,y,a)
colnames (xy1) = c("LONG", "LAT", "Variavel a")
head(xy1)

selpts (xy1, dist=150 , -56, -27, -54, -21.5, np=100)

Exemplo 2, com NA
x <- sample(runif(50, -58, -52))
y <- sample(runif(50, -30, -20))
a <- sample(seq(2, 5, length=50))
b <- sample(rep(c(NA, 2, 5, NA, 3), times=10))
xy1 = data.frame(x,y,a,b)
colnames (xy1) = c("LONG", "LAT", "Variavel a", "Variavel b")
head(xy1)

selpts (xy1, dist=150 , -56, -27, -54, -21.5, np=100)