# NOT RUN {
x = list(1:1000)
tmp = fsapply(x, sin)
# }
# NOT RUN {
x = list()
set.seed(142313)
for (i in 1:1000) x[[i]] = rnorm(100)
system.time(for (i in 1:100) sapply(x, function(x) last(x)))
system.time(for (i in 1:100) fsapply(x, function(x) last(x)))
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace