回复 第2楼 的 yanlinlin82:很好很强大,快很多[s:13]
<br />
> a <- matrix(1:9e4,ncol=3)<br />
> b <- list()<br />
> ff <- function(a){for(i in 1:nrow(a)) b[[i]] <- a[i,]; return(b) }<br />
> system.time(b <- ff(a))<br />
user system elapsed<br />
5.67 0.00 5.68<br />
> system.time(split(a, 1:nrow(a))->c)<br />
user system elapsed<br />
0.07 0.00 0.06<br />
</p>