On 2015-10-09 20:15:16, liqunhan--- via R-help wrote:
> for (k in 1 : 50000) {
> xlist <- list(x5 = dailyrecord$a[k], x6 = dailyrecord$e[k], x7 =
> dailyrecord$f[k])
> result_forloop[k] <- fun3(list1, list2, xlist)
> }
result_forloop <- lapply( 1 : 50000, function( k) {
tmpRow <- dailyrecord[ k, ]
xlist <- with( df, list( x5= a, x6= e, x7= f))
fun3(list1, list2, xlist)
})
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
