[R-br] Cálculo entre todos os pares de distâncias em um objeto espacial

[ASANTOS]

Boa noite pessoal,

     Gostaria de calcular todas as distâncias de 6 coordenadas em UTM, à 
partir de um objeto da classe espacial, para isto fiz:

### Cálculo da distancia entre todos os pontos em UTM
ninhos<-c("N01","N02","N03","N04","N05","N06")
lat<-c(0503252,0503319,0503716,0503682,0503688,0503707)
long<-c(7651950,7651694,7652672,7652670,7652627,7652662)

##Cálculo que compara a primeira coordenada com a segunda e assim 
sucessivamente ....

lat.diff<-diff(lat)
long.diff<-diff(long)
d=(long.diff^2+lat.diff^2)^.5
d
##Porém não era bem isto que eu queria ainda

##Transformando em um objeto da classe espacial
require(sp)
pontos<- SpatialPoints(cbind(lat,long))
pontos<- SpatialPoints(list(lat,long))
pontos<- SpatialPoints(data.frame(lat,long))

Agora, gostaria de baseado no objeto espacial pontos, calcular todas as 
combinações
de distâncias entre as coordenadas fornecidas. Alguém saberia me indicar 
uma função em algum pacote que faz isso,

Obrigado,

-- 
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: +55 (35) 9223-0304