[問題] for loop優化

看板R_Language作者 (重新出發)時間11年前 (2013/11/22 01:32), 編輯推噓0(005)
留言5則, 3人參與, 最新討論串1/1
[問題類型]: 效能諮詢(我想讓R 跑更快) [軟體熟悉度]: 入門(寫過其他程式,只是對語法不熟悉) [問題敘述]: 基本上我的程式有問題處如下 K <- function(A, f) { #A is an matrix #f is a functino of matrix with single value output n <- length(A) ans <- rep(0, n) for (m in 1:n) { ans[m] <- f(A[1:m]) } return(ans) } 有辦法避免這個for loop嗎? -- 切記 任何事情都不能抹殺我們對唱歌的熱情 因為這是我們活著的原因 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 174.63.85.206

11/22 01:39, , 1F
apply(A, 2, f) 致個嗎
11/22 01:39, 1F

11/22 01:39, , 2F
11/22 01:39, 2F

11/22 04:35, , 3F
do.call("c",lapply(1:n,function(m){ f(A[1:m]) })
11/22 04:35, 3F

11/22 04:43, , 4F
)
11/22 04:43, 4F

11/22 11:37, , 5F
problem solved, 感謝樓上
11/22 11:37, 5F
文章代碼(AID): #1IZaERAT (R_Language)
文章代碼(AID): #1IZaERAT (R_Language)