Olá, como eu seto um nome de coluna para ser a referencia e aparecer o nome do objeto ao invés de 1,2,3,4,5 e 6 ???? <br><br><div class="gmail_quote">Em 4 de junho de 2012 20:26, ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div bgcolor="#FFFFFF" text="#000000">
Obrigado Prof. Paulo e Benilton pelas sugestões, problema resolvido
com função spDists().<br>
<br>
Segue solução:<br>
<br>
> ##Transformando em um objeto da classe espacial<br>
> require(sp)<br>
Carregando pacotes exigidos: sp<br>
> pontos<- SpatialPoints(cbind(lat,long))<br>
> pontos<- SpatialPoints(list(lat,long))<br>
> pontos<- SpatialPoints(data.frame(lat,long))<br>
> spDists(pontos)<br>
[,1] [,2] [,3] [,4] [,5] [,6]<br>
[1,] 0.0000 264.6224 858.24239 838.62983 805.24841 844.96686<br>
[2,] 264.6224 0.0000 1055.50604 1041.31888 1003.31949 1042.86528<br>
[3,] 858.2424 1055.5060 0.00000 34.05877 53.00000 13.45362<br>
[4,] 838.6298 1041.3189 34.05877 0.00000 43.41659 26.24881<br>
[5,] 805.2484 1003.3195 53.00000 43.41659 0.00000 39.82462<br>
[6,] 844.9669 1042.8653 13.45362 26.24881 39.82462 0.00000<br>
> <br>
<br>
Em 04/06/2012 18:51, Paulo Justiniano escreveu:
<blockquote type="cite">voce deu uma olhada em dist() ?
<br>
<br>
<br>
me parece que tem algo já apra classes espaciais no sp
<br>
<br>
<br>
On Mon, 4 Jun 2012, ASANTOS wrote:
<br>
<br>
<blockquote type="cite">Boa noite pessoal,
<br>
<br>
Gostaria de calcular todas as distâncias de 6 coordenadas em
UTM, à partir de um objeto da classe espacial, para isto fiz:
<br>
<br>
### Cálculo da distancia entre todos os pontos em UTM
<br>
ninhos<-c("N01","N02","N03","N04","N05","N06")
<br>
lat<-c(0503252,0503319,0503716,0503682,0503688,0503707)
<br>
long<-c(7651950,7651694,7652672,7652670,7652627,7652662)
<br>
<br>
##Cálculo que compara a primeira coordenada com a segunda e
assim sucessivamente ....
<br>
<br>
lat.diff<-diff(lat)
<br>
long.diff<-diff(long)
<br>
d=(long.diff^2+lat.diff^2)^.5
<br>
d
<br>
##Porém não era bem isto que eu queria ainda
<br>
<br>
##Transformando em um objeto da classe espacial
<br>
require(sp)
<br>
pontos<- SpatialPoints(cbind(lat,long))
<br>
pontos<- SpatialPoints(list(lat,long))
<br>
pontos<- SpatialPoints(data.frame(lat,long))
<br>
<br>
Agora, gostaria de baseado no objeto espacial pontos, calcular
todas as combinações
<br>
de distâncias entre as coordenadas fornecidas. Alguém saberia me
indicar uma função em algum pacote que faz isso,
<br>
<br>
Obrigado,
<br>
<br>
-- <br>
Alexandre dos Santos
<br>
Engenheiro Florestal, Dr.
<br>
Universidade Federal de Lavras
<br>
Departamento de Entomologia
<br>
Laboratório de Entomologia Florestal
<br>
Caixa Postal 3037
<br>
37200-000 - Lavras/MG
<br>
Fone: <a href="tel:%2B55%20%2835%29%209223-0304" value="+553592230304" target="_blank">+55 (35) 9223-0304</a>
<br>
<br>
_______________________________________________
<br>
R-br mailing list
<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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>
</blockquote>
<br>
<fieldset></fieldset>
<br>
<pre>_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<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>
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.</pre><span class="HOEnZb"><font color="#888888">
</font></span></blockquote><span class="HOEnZb"><font color="#888888">
<br>
<br>
<pre cols="72">--
Alexandre dos Santos
Engenheiro Florestal, Dr.
Universidade Federal de Lavras
Departamento de Entomologia
Laboratório de Entomologia Florestal
Caixa Postal 3037
37200-000 - Lavras/MG
Fone: <a href="tel:%2B55%20%2835%29%209223-0304" value="+553592230304" target="_blank">+55 (35) 9223-0304</a> </pre>
</font></span></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a 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></blockquote></div><br><br clear="all"><div><br></div>-- <br>
Julianna Trindade <br><br>"Exalta-te, Senhor, na Tua força! Nós cantaremos e louvaremos o Teu poder."<br><br>Salmos 21; 13<br>