テーブル内のループ内の最大値、最小値の平均値を保存する

Question

s<-NULL 
for(i in seq(from=1,to=3360,by=240)){ 
    print(i) 
    s<- rbind(s, data.table(
    max(mydata$duration_in_traffic[i:i+239]), 
    min(mydata$duration_in_traffic[i:i+239]), 
    mean(mydata$duration_in_traffic[i=i:i+239]), 
    median(mydata$duration_in_traffic[i:i+239]))) 
} 

forループを使用してさまざまな観測値に対して最大、最小、平均および中央値を保存しようとしていますが、最大値、各観測における平均、中央値および中央値。ここで

Answer 1

あなたは一例として、虹彩データを使用してdplyrパッケージでそれを行うことができる方法です：あなたのケースでは

iris$gp <- findInterval(1:nrow(iris), seq(1, nrow(iris), 40)) # create a grouping variable for every 40 observations of iris data 

iris %>% 
    group_by(gp) %>% 
    summarise_at(vars(Petal.Length), funs(max, min, mean, median)) 

# # A tibble: 4 × 5 
#  gp max min  mean median 
# <int> <dbl> <dbl> <dbl> <dbl> 
# 1  1 1.9 1.0 1.460000 1.50 
# 2  2 5.0 1.3 3.617500 4.15 
# 3  3 6.9 3.0 4.902500 4.85 
# 4  4 6.7 4.8 5.483333 5.55 

これは動作するはずです：

s$gp <- findInterval(1:nrow(iris), seq(1, 3360, 240)) 

s %>% 
    group_by(gp) %>% 
    summarise_at(vars(duration_in_traffic), funs(max, min, mean, median))