Como obter o segundo vizinho mais próximo entre dois padrões de pontos em R?

Existe uma maneira de obter as distâncias para o segundo vizinho mais próximo entre dois padrões de pontos em R? O pacote spatstat tem uma função chamada nncross, mas só se aplica aos vizinhos mais próximos entre dois padrões e eu preciso das distâncias para os segundos vizinhos mais próximos.

A função get.knnx no pacote FNN pode calcular os vizinhos N mais próximos em padrões de pontos.

x1 = cbind(runif(10),runif(10))
x2 = cbind(runif(10),runif(10))
nn = get.knnx(x1,x2,2)

agora nn $ nn.index é uma matriz tal que nn $ nn.index [i, j] é a linha em x1 dos dois vizinhos mais próximos da linha i em x2 - classificada de modo que o mais próximo seja [i, 1] e o próximo vizinho é [i, 2].

A função também retorna as distâncias para você e possui algumas opções para calcular índices espaciais para pesquisas muito rápidas.

Acabei de descobrir que Spatstat tem uma função crossdist .

Descrição

Calcula as distâncias entre pares de 'itens' obtidos de dois conjuntos de dados diferentes.

Ele usa dois padrões de pontos X e Y como entradas e retorna a matriz cuja entrada [i, j] é a distância de X [i] a Y [j]. Para obter os segundos vizinhos mais próximos usando crossdist:

xdistances <- crossdist(X, Y)  #Get all cross distances    

nn = numeric() 
for (i in 1:nrow(X)) {   
  xdistance <- sort(xdistances[i,], partial=2)[2]   
  nn <- append(nn, xdistance)
}

Sei que já aceitei a resposta de Spacedman, mas gostaria de compartilhar como fiz de outra maneira.

A função nndistno spatstatpacote possui um argumento kque determina a ordem dos vizinhos. Para obter a segunda distância do vizinho mais próximo, use k=2. Para obter o primeiro e o segundo vizinhos, use k=1:2.