ベースRループをR data.tableに変換する

Question

私は、15分ごとの値のレコードを持つデータフレームを持っています。

私は15分の範囲でレコードの数を計算するためにループを使用しています。 しかし、非常に遅いです。私はそれをdata.tableの機能に変換すると、処理がかなりスピードアップすると思います。

Input$Freq <- array() 

for(i in 1:nrow(Input)) 
{ 
    Input[i,"Freq"]<-0 
} 

for(i in 1:nrow(Input)) 
{ 
    for(j in 1:nrow(Input)) 
    { 
    if(Input[i,"Cur_DateTime"] > Input[j,"Cur_DateTime"] & Input[i,"Cur_DateTime"] < Input[j,"Window_15"]) 
     Input[i,"Freq"] <- Input[i,"Freq"]+1 
    } 
} 

Answer 1

これはまさにあなたの質問に答える場合、私はわからない：

私は、次のループを書かれています。ベースRのカットコマンドを使用してデータを直接ビンすることができます。ここで は一例です：

#create a dummy sequence 
s<-seq(from =as.POSIXct("2015-02-15 09:46:43.17"), by="5 min", length.out = 50) 
df<-data.frame(s) 

#bin the sequence by 15 minute intervals: 
df$bins<-cut(df$s, "15 min") 

は要約するdplyrライブラリを使用します。

library(dplyr) 
summarise(group_by(df,bins), n()) 

やフランクなどが提案：

count(df, bins)