ループ出力が期待通りではない

Question

私は条件付きの次の入れ子ループを持っていますが、条件付きは考慮されていないようです。

i = 1 
for(fa in c(1, 2, 3, 4, 5, 6, 8, 9, 11)){ 
    for(wz in c("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "N", "O", "P", "Q", "R", "S", "U")){ 
    avg_fzg <- fzg_aktiv_wv[fzg_aktiv_wv$K01 == fa & fzg_aktiv_wv$K19b == wz, c("K00", "K01", "K31c", "K34c")] 
    avg_fahrten <- fzg_fahrten_merge 
    avg_fahrten <- avg_fahrten[avg_fahrten$K01 == fa & avg_fahrten$K19b == wz & avg_fahrten$F15 != -1, c("K00", "K01", "K19b", "F14", "F15", "F04a")] 
    avg_fahrten <- avg_fahrten[!duplicated(avg_fahrten),] 

    if(length(avg_fzg$K01 >= 10)){ 
     print(length(avg_fzg$K01)) 
     Fzg_WZ_avg[i,1] <- median(avg_fzg$K31c) 
     Fzg_WZ_avg[i,2] <- median(avg_fzg$K34c) 
     Fzg_WZ_avg[i,3] <- median(avg_fahrten$F14) 
     Fzg_WZ_avg[i,4] <- median(avg_fahrten$F15) 
     Fzg_WZ_avg[i,5] <- median(avg_fahrten$F04a) 


    } 

    i <- i + 1 
    } 
} 

私がチェックするためにprint文はlength(avg$K01)が、私はそれが望むように動作していること、だった - そしてそれはありません、まだ条件付き内部のすべてが実行されます。

本当にありがとうございます！

Answer 1

あなたのif文の状態

length(avg_fzg$K01 >= 10) 

私は補正を行うと、それをコンパイルしてください、それは

length(avg_fzg$K01) >= 10 

されるべきだと思います。