[问题] 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