test1=function(){
l=list()
for(i in 1:10000){
l=append(l,"abc")
}
return(l)
}
system.time(test1())
test2=function(){
l=vector("list", 10000)
for(i in 1:10000){
l[i]="abc"
}
return(l)
}
system.time(test2())
test3=function(){
l=list()
for(i in 1:10000){
l[i]="abc"
}
return(l)
}
system.time(test3())
test4=function(){
return(lapply(1:10000, function(x) "abc"))
}
system.time(test4()) # 0.003
R :)
, , lappy