リストにどのように追加するのですか？R

Question

黄土色のモデルに最適なスパン引数を選択しようとしています。私はiと標準エラーをerrorというリストに格納する必要があります。 0.10から1まで実行した後、最小誤差と対応するiをモデルとの比較で比較できます。私はこれを試みたが、動作していないようだ。何か案は？

z<-1 
for(i in seq(from=0, to=1, by=0.10)){ 
    tryCatch({ 
     mdl <- loess(data=final.train, mCpu ~ mTrans_A,control=loess.control(surface="direct"), span=i) 
     error[[z]]<-i 
     error[[ z ]] <- mdl$s 
     z=z+1 
    }, error = function(err) { 

    }) 
} 

Answer 1

これはループインデックスとしてzとi両方を使用する奇妙な（および潜在的にバギー）です。ちょうど1つを選ぶ。また、結果リストを初期化する必要があります。

error = list() 
my_seq = seq(from=0, to=1, by=0.10) 
for(i in seq_along(my_seq)){ 
    tryCatch({ 
     mdl <- loess(data=final.train, mCpu ~ mTrans_A,control=loess.control(surface="direct"), span=my_seq[i]) 
     error[[i]] <- mdl$s 
    }, error = function(err) return(NA)) 
}