R data.table距離

Question

Iは、次のデータがあると：

d = data.table(id = 1, x = c(1, 10, 17, 35, 37, 45)) 

IはグループIDによってxの各i番目の要素は、30〜要素を有しているかどうかを確認しますそれよりも大きい40。だから、xの最初の要素のid（1）で、1の後のxの値が31と41の間にあるかどうか調べたいと思います。答えはyesです。最初の要素ではTRUEです。最後に、私は、取得するために探しています：

d_final = data.table(id = 1, x = c(1, 10, 17, 35, 37, 45), valid_gap = c(T, T, F, F, F, F)) 

私はしばらくのために同僚と、この質問について考えてきた、と私たちは本当にここにループを使用しないようにしようとしているが、理解することはできませんそれを出す。これはループなしでも可能ですか？

私の最高の試みのようなものです：

d[, valid_gap := any(between(rdist(x[ .N - .I ])[,1], left = 30, right = 40)), by = id] 

が、私は間違った考えである疑いがあるループにいるかのようにXによってインデックスにしようとして問題を考えています。

EDIT - "悪い" ソリューション：

x = c(1, 10, 17, 35, 37, 45) 
valid_gap = c() 

for(i in 1:length(x)) { 
    if(i == length(x)){ 
    valid_gap = c(valid_gap, F) 
    } else { 
    valid_gap = c(valid_gap, any(between(rdist(x[ x >= x[i] ])[,1], left = 30, right = 40))) 
    } 
} 
valid_gap 

事前にありがとうございます！私は非エクイが参加推測

Answer 1

がループよりも高速でなければなりません：行ごとに

d[, v := 
    d[.(id = id, x0 = x + 30, x1 = x + 40), on=.(id, x >= x0, x <= x1), 
    .N 
    , by=.EACHI][, N > 0L] 
] 

    id x  v 
1: 1 1 TRUE 
2: 1 10 TRUE 
3: 1 17 FALSE 
4: 1 35 FALSE 
5: 1 37 FALSE 
6: 1 45 FALSE 

、我々...

1. は、関心のある区間内のすべての一致を検索します;
2. これらを数えます（.N）。カウントが0に

を超えた場合、その後

チェック最初のステップは、mult="first"でわずかに速いかもしれません。

Answer 2

library('data.table') 
myfun <- function(y, z) 
{ 
    any(z > y+30 & z < y+40) # check for values between the range 
} 
myfun <- Vectorize(FUN = myfun, vectorize.args = 'y') # vectorize myfun() function for 'y' argument 

d = data.table(id = 1, x = c(1, 10, 17, 35, 37, 45)) 
d[, valid_gap := myfun(y = x, z = x), by = .(id)] 
d 
# id x valid_gap 
# 1: 1 1  TRUE 
# 2: 1 10  TRUE 
# 3: 1 17  FALSE 
# 4: 1 35  FALSE 
# 5: 1 37  FALSE 
# 6: 1 45  FALSE