作者dorminia (重新出发)
看板R_Language
标题[问题] for loop优化
时间Fri Nov 22 01:32:08 2013
[问题类型]:
效能谘询(我想让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
1F：→ celestialgod:apply(A, 2, f) 致个吗 11/22 01:39
2F：→ celestialgod: 这 11/22 01:39
3F：→ clickhere:do.call("c",lapply(1:n,function(m){ f(A[1:m]) }) 11/22 04:35
4F：→ clickhere:) 11/22 04:43
5F：→ dorminia:problem solved, 感谢楼上 11/22 11:37