Извлечь диагональ из матрицы расстояний, используя R

Question

Я хотел бы знать, как я могу извлечь значения первой диагонали из матрицы расстояния.

Например:

> mymatrix 
    [,1] [,2] 
[1,] 1 2 
[2,] 3 4 
[3,] 6 4 
[4,] 8 6 

> dist(mymatrix) 

     1  2  3 
2 2.828427     
3 5.385165 3.000000   
4 8.062258 5.385165 2.828427 

Я хочу, чтобы в векторе значения: 2.828427, 3, 2.828427

Спасибо!

Answer 1

Одна работа вокруг, чтобы преобразовать dist объект в matrix, а затем извлечь элементы, где индекс строки на единицу больше, чем индекс столбца:

mat = as.matrix(dist(mymatrix)) 
mat[row(mat) == col(mat) + 1] 
# [1] 2.828427 3.000000 2.828427