R : 인덱스

Question

내가 좋아 처음 매트릭스 호출 입술이 행렬에 다음

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

나는 인덱스 (인덱스)의 행렬을 다음과 같이 : 결과 내가 원하는

 [,1] [,2] 
[1,] 2 3 
[2,] 7 9 

고해상도 행렬은 다음과 같이 수 :

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

내가 큰 매트릭스를 가지고, 그것은 인덱스를 통해 루프에 시간이 오래 걸립니다 매트릭스. 더 나은 접근 방법이 있다면 알려 주시기 바랍니다. 나는 mat [indexes,] <-1과 같은 것을하기를 바라고 있습니다. 그러나 이것은 원했던 것이 아닙니다.

Answer 1

메인 매트릭스와 indexes이 지수의 행렬 인 경우 res 경우 :

이 도울 수는 :

idx <- do.call("c",apply(indexes,1,function(x){seq(x[1],x[2])})) 

res[idx,] <- 1 

타이밍에 관해서는, 최초의 큰 지표 매트릭스 작성 :

> set.seed(42) 
> indexes <- t(matrix(sort(sample(1:10000,1000)),2,500)) 
> head(indexes) 
    [,1] [,2] 
[1,] 3 4 
[2,] 14 16 
[3,] 23 33 
[4,] 40 63 
[5,] 67 74 
[6,] 79 83 

을

및 시간 :

> system.time(idx <- do.call("c",apply(indexes,1,function(x){seq(x[1],x[2])}))) user system elapsed 
    0.008 0.000 0.007 

> system.time(idx2 <- unlist(apply(indexes , 1 , FUN = function(x){ seq.int(x[1],x[2])}))) 
    user system elapsed 
    0.004 0.000 0.002 

두 번째 방법이 약간 빠르다는 것을 알 수 있습니다.

Answer 2

편집 :

test <- matrix(rep(0,1E7), ncol=2) 
Index <- matrix(sort(sample(1:(1E7*0.5), size=10000)), ncol=2, byrow=TRUE) 
test[unlist(apply(Index, 1, function(x){x[1]:x[2]})),] <- 1 

Answer 3

은 행 인덱스 ridx의 벡터를 만들려면 previous question에 대한 답변을 사용하고

res[as.logical(ridx),] = 1L