testData/parser/r/BlockAsArgument.r (3 lines of code) (raw):

system.time({ B = data.frame(x1=runif(100000), x2=runif(100000), x3=runif(100000)) })