<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:10pt"><div><span>Olá Elias,</span></div><div><br><span></span></div><div><span>Muito obrigada.</span></div><div><br><span></span></div><div><span>célia</span></div><div> </div><br><div><br></div>  <div style="font-family: arial, helvetica, sans-serif; font-size: 10pt;"> <div style="font-family: times new roman, new york, times, serif; font-size: 12pt;"> <div dir="ltr"> <font face="Arial" size="2"> <hr size="1">  <b><span style="font-weight:bold;">De:</span></b> Elias T. Krainski <eliaskrainski@yahoo.com.br><br> <b><span style="font-weight: bold;">Para:</span></b> "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br>; Elias T. Krainski <eliaskrainski@yahoo.com.br> <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Sexta-feira, 13 de Janeiro de 2012 16:48<br> <b><span style="font-weight:
 bold;">Assunto:</span></b> Re: [R-br] Ajuda para buscar coordenadas de um ponto qq em uma matriz com coordenadas.<br> </font> </div> <br>Segue, uma correção. <br><br>xyz <- matrix(runif(30),10)<br><br>findProx <- function(x) {<br>  n <- length(x)<br><br>  o <- sort(x, index.return=TRUE, method="quick")<br>  r <- sort(o$ix, index.return=TRUE, method="quick")<br>  cbind(x=o$x, menor=c(NA,o$x[2:n-1]), maior=c(o$x[2:n], NA))[r$ix,]<br>}<br><br>findProx(xyz[,1])<br><br>Elias T. Krainski<br><br>>________________________________<br>> De: Elias T. Krainski <<a ymailto="mailto:eliaskrainski@yahoo.com.br" href="mailto:eliaskrainski@yahoo.com.br">eliaskrainski@yahoo.com.br</a>><br>>Para: "<a ymailto="mailto:r-br@listas.c3sl.ufpr.br" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>" <<a ymailto="mailto:r-br@listas.c3sl.ufpr.br"
 href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>>; Maria Papa <<a ymailto="mailto:mceliamat@yahoo.com.br" href="mailto:mceliamat@yahoo.com.br">mceliamat@yahoo.com.br</a>> <br>>Enviadas: Sexta-feira, 13 de Janeiro de 2012 16:28<br>>Assunto: Re: [R-br] Ajuda para buscar coordenadas de um ponto qq em uma matriz com coordenadas.<br>> <br>><br>>Oi Maria, <br>><br>><br>><br>>Vc quer identificar os proximos para cada variavel? Veja este exemplo para uma delas:<br>><br>><br>>xyz <- matrix(runif(30),10)<br>><br>><br>>findProx <- function(x) {<br>>  n <- length(x)<br>><br>>  o <- sort(x, index.return=TRUE, method="quick")<br>>  cbind(x=o$x, menor=c(NA,o$x[2:n-1]), maior=c(o$x[2:n], NA))[o$ix,]<br>>}<br>><br>><br>>findProx(xyz[,1])<br>><br>><br>>Ou seria a identificação do ponto mais
 próximo?<br>><br>>Abraço,<br>><br>>Elias T. Krainski<br>><br>><br>>>________________________________<br>>> De: Maria Papa <<a ymailto="mailto:mceliamat@yahoo.com.br" href="mailto:mceliamat@yahoo.com.br">mceliamat@yahoo.com.br</a>><br>>>Para: "<a ymailto="mailto:r-br@listas.c3sl.ufpr.br" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>" <<a ymailto="mailto:r-br@listas.c3sl.ufpr.br" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> <br>>>Enviadas: Sexta-feira, 13 de Janeiro de 2012 15:23<br>>>Assunto: [R-br] Ajuda para buscar coordenadas de um ponto qq em uma matriz com coordenadas.<br>>> <br>>><br>>>Olá pessoal, boa tarde, <br>>><br>>><br>>><br>>>Eu estou com outro problema! Eu tenho um conjunto de coordenadas, (X,Y,Z) uma matriz com uma coluna de valores para X, outra para Y e outra para Z. Dado uma coordenada
 (XYZ) qualquer, eu preciso buscar neste conjunto (matriz) os valores imediatamente maiores e menores que as coordenadas deste ponto qualquer. Eu pensei no comando ifelse, mas eu teria que fazer para cada coordenadas. Alguém saberia me dizer se existe alguma forma mais simples para fazer isso?<br>>><br>>><br>>>Desde já agradeço a todos. <br>>><br>>><br>>><br>>>célia<br>>><br>>> <br>>> <br>>><br>>><br>>>_______________________________________________<br>>>R-br mailing list<br>>><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>>><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>>>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia"
 target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>>><br>>><br>>_______________________________________________<br>>R-br mailing list<br>><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>><br>><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
 target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br><br><br> </div> </div>  </div></body></html>