作者Wush978 (拒看低質媒體)
看板R_Language
標題Re: [問題] R菜鳥請問
時間Tue Oct 8 12:59:42 2013
※ 引述《GTBUG (賈斯伯張)》之銘言：
: - 問題:使用迴圈時如何正確借用設定好的i去output所需的資訊
: [問題類型]:
: 程式諮詢
: [軟體熟悉度]:
: 入門
: [問題敘述]:
: 當我fit完幾個model後(如3個model:mod1,mod2,mod3)，想利用accuracy(model)
: 去show出fitting資訊，我知道可以直接打accuracy(mod1)..依此類推，但現在
: 想要改寫程式碼利用loop讓他更簡潔，但是碰到無法在loop裡面指定每次要show的model，
: 突然想到這個問題，詢問板上大大們!
: [程式範例]:
: mod1 <- rwf(EuStockMarkets[1:200,1],h=100)
: mod2 <- meanf(EuStockMarkets[1:200,1],h=100)
: mod3 <- Arima(x,order=c(3,1,2))
: #我想利用設定好的i讓loop依序針對mod1->3 (i:1->3)執行accuracy()，
: 我記得在其他程式語言可以做到，一時卡住在R這邊怎麼用
: for( i in 1:3 ) {
: accuracy(mod.i)
: }
: [關鍵字]:accuracy(), loop, R, model
你可以把fit 出來的物件放到一個list之中，
ex:
```
mod <- list()
mod[[1]] <- rwf(EuStockMarkets[1:200,1],h=100)
mod[[2]] <- meanf(EuStockMarkets[1:200,1],h=100)
mod[[3]] <- Arima(x,order=c(3,1,2))
```
然後迴圈中使用：
```
for(i in seq_along(mod)) {
# seq_along(mod) 等同於 1:length(mod)，但是某些情形下能優化
accuracy(mod[[i]])
}
```
ps. 上面程式碼沒測過，可能有typo
這是你要的嗎？
--
歡迎到ptt R_Language版分享R 的相關知識
歡迎加入 Taiwan R User Group :
http://www.facebook.com/Tw.R.User
聚會報名
http://www.meetup.com/Taiwan-R/
聚會影片
https://www.youtube.com/user/TWuseRGroup
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.135.56.60