유클리드 거리를 계산하기 위해 r의 행렬에있는 두 원소를 차례로 추출합니다.

Question

행렬의 두 원소를 모두 추출하여 그 결과를 행렬로 반환하여 계산식에서 수식으로 답을 줄 수있는 방법 :

[,1][,2][,3][,4][,5][,6] 
[1,] 2 1 5 5 10 1 

난 등 열에 1 개의 첫 번째 반복에서, 3, 4 번째 반복과 압축을 :

예를 들어, I는 6 열이 하나의 행의 행렬을 갖는다. 그 결과는 매트릭스 형태 여야합니다.

[1,] 2 1  
[2,] 5 5 
[3,] 10 1 

내 원래 코드 :

 data <- matrix(c(1,1,1,2,2,1,2,2,5,5,5,6,10,1,10,2,11,1,11,2), ncol = 2) 

센터 매트릭스 :

 [,1][,2][,3][,4][,5][,6] 
[1,] 2 1 5 5 10 1 
[2,] 1 1 2 1 10 1 
[3,] 5 5 5 6 11 2 
[4,] 2 2 5 5 10 1 
[5,] 2 1 5 6 5 5 
[6,] 2 2 5 5 11 1 
[7,] 2 1 5 5 10 1 
[8,] 1 1 5 6 11 1 
[9,] 2 1 5 5 10 1 
[10,] 5 6 11 1 10 2 

    objCentroidDist <- function(data, centers) { 
     resultMatrix <- matrix(NA, nrow=dim(data)[1], ncol=dim(centers)[1]) 
     for(i in 1:nrow(centers)) { 
      resultMatrix [,i] <- sqrt(rowSums(t(t(data)-centers[i, ])^2)) 
     } 
      resultMatrix 
    } 

    objCentroidDist(data,centers) 

내가 결과 행렬은 아래에 따라 할 것을 권장합니다

 [1,][,2][,3] 

    [1,] 
    [2,] 
    [3,] 
    [4,] 
    [5,] 
    [7,] 
    [8,] 
    [9,] 
    [10] 

나의 관심사입니다, 데이터 센터 거리를 계산하는 방법 데이터 행렬의 ns는 2이고, 중심 행렬은 6이다. (데이터 행렬과 중심 행렬의 두 열마다 거리를 계산). 중심 행렬의 각 행에는 3 개의 중심이 있습니다.

Answer 1

어쩌면 이런가?

m <- matrix(c(2,1,5,5,10,1), ncol = 6) 

list.seq.pairs <- lapply(seq(1, ncol(m), 2), function(x) { 
    m[,c(x, x+1)] 
}) 

> list.seq.pairs 
[[1]] 
[1] 2 1 

[[2]] 
[1] 5 5 

[[3]] 
[1] 10 1 

, 당신은 매트릭스에서 여러 행을 반복하고자하는 경우, 이 같은 위를 확장 할 수 있습니다 :

mm <- matrix(1:18, ncol = 6, byrow = TRUE)  

apply(mm, 1, function(x) { 
    lapply(seq(1, length(x), 2), function(y) { 
    x[c(y, y+1)] 
    }) 
}) 

편집 :

I 네가 뭘 정확히하고 있는지 모르겠다.

mm <- matrix(1:18, ncol = 6, byrow = TRUE)  

list.mats <- lapply(1:nrow(mm), function(x){ 
    a = matrix(mm[x,], ncol = 2, byrow = TRUE) 
}) 

> list.mats 
[[1]] 
    [,1] [,2] 
[1,] 1 2 
[2,] 3 4 
[3,] 5 6 

[[2]] 
    [,1] [,2] 
[1,] 7 8 
[2,] 9 10 
[3,] 11 12 

[[3]] 
    [,1] [,2] 
[1,] 13 14 
[2,] 15 16 
[3,] 17 18 

경우에는, 그러나, 당신은 내가 당신이 동안해야 할 어떤 계산을 할 아마도 가장 쉬운 생각 매트릭스 - 당신의 결과를 얻으려면 : 난 당신이 2 × 3 행렬로 변환 각 행을 원하는 경우, 생각 각 행에 대해 다음과 같이 처리하고 있습니다.

results <- t(apply(mm, 1, function(x) { 
    sapply(seq(1, length(x), 2), function(y) { 
    val1 = x[y] # Get item one 
    val2 = x[y+1] # Get item two 
    val1/val2 # Do your calculation here 
    }) 
})) 

> results 
      [,1] [,2]  [,3] 
[1,] 0.5000000 0.7500 0.8333333 
[2,] 0.8750000 0.9000 0.9166667 
[3,] 0.9285714 0.9375 0.9444444 

그렇다면 내가하려는 것을 이해하지 못해 이것이 누락 될 수 있습니다. 예제 입력과 실제 예상 출력을 표시하는 새로운 질문을하면 예상 한 실제 값과 함께 더 많은 행운을 누릴 수 있습니다.