Olá, 
Seria uma função para recortar uma quadricula dentro de um intervalo de coordenadas?
Se for, talvez isso que segue abaixo possa ajudar:

#---------------------------------------------------------------------------

coords<-matrix(sample(0:100,200,r=T),100,2);colnames(coords)<-c("Lat","Lon")

coordinates<-c(0,50,50,100)#Sequencia de valores: 
#1-Latitude Minima
#2- Latitude Maxima
#3- Longitude Minima
#4- Longitude Maxima

coords.1<-coords[c(which((coords[,"Lat"])>=(coordinates[1]))),]#.lat.min
coords.2<-coords.1[c(which((coords.1[,"Lat"])<=(coordinates[2]))),]#.lat.max
coords.3<-coords.2[c(which((coords.2[,"Lon"])>=(coordinates[3]))),]#.long.min
coords.final<-coords.3[c(which((coords.3[,"Lon"])<=(coordinates[4]))),]#.long.max
#Aqui no final saem somente os pontos que estão no intervalo determinado acima

#---------------------------------------------------------------------------

Espero ter ajudado.
Abraços
Luciano



2012/8/21 Heloíse Pavanato <helopavanato@gmail.com>
Boa tarde a todos,

Estou com um problema em um loop.
Tenho duas matrizes de 480 por 216 com latitudes e longitudes e quero selecionar dentre estas somente as que estão dentro de determinado limite (latLim e lonLim), que são pares.

Estou usando:

lat <- read.table(file="lat.txt")
lon <- read.table(file="lon.txt")

library(R.matlab)   # para ler .mat
sx <- readMat('SX.mat',maxLength=NULL, fixNames=TRUE,verbose=F,sparseMatrixClass='SparseM')

# limite de longitude
lonSX <- sx$SX[3,1,1]
lonlim <- as.numeric(lonSX$Lon[1:130])

# limite de latitude
latSX <- sx$SX[4,1,1]
latlim <- as.numeric(latSX$Lat[1:130])

####
latA <- lonA <- matrix(NA,480,216)

for(i in 1:(dim(lat)[1])){
    for(j in 1:(dim(lon)[2])){
        if (c(lat[i,j],lon[i,j]) > min(latLim,lonLim)      # seleciona a lat/lon só para a área do polígono
        & c(lat[i,j],lon[i,j]) < max(latLim,lonLim))
        latA[i,j] <- lat[i,j]
        lonA[i,j] <- lon[i,j]
      }
    } 

Mas a sintaxe não está correta pois eu não estou sabendo dizer que cada par latLim,lonLim é um delimitador de lat e lon.

Se alguém puder me dar uma mãozinha, por favor.

Os arquivos estão em anexo.

Obrigada,
Heloise

---
Oc. Heloise Pavanato
Pós-graduação em Oceanogra Biológica
Instituto de Oceanografia
Universidade Federal do Rio Grande

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.



--
Luciano F. Sgarbi
Mestrando em Ecologia e Evolução - UFG
Laboratório de Ecologia de Insetos
Cel. (62)8174-2262   Lab. (62)3521-1732