[問題] for loop優化

作者: dorminia (重新出發)   2013-11-22 01:32:08
[問題類型]:
效能諮詢(我想讓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嗎?
作者: celestialgod (天)   2012-01-22 01:39:00
apply(A, 2, f) 致個嗎這
作者: clickhere (It's time to go home.)   2012-01-22 04:35:00
do.call("c",lapply(1:n,function(m){ f(A[1:m]) }))
作者: dorminia (重新出發)   2012-01-22 11:37:00
problem solved, 感謝樓上

Links booklink

Contact Us: admin [ a t ] ucptt.com