[問題] for loop優化

[dorminia (重新出發)]

[問題類型]:
效能諮詢(我想讓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
→ celestialgod:apply(A, 2, f) 致個嗎
→ celestialgod:               這
→ clickhere:do.call("c",lapply(1:n,function(m){ f(A[1:m]) })
→ clickhere:)
→ dorminia:problem solved, 感謝樓上