gistfile1.r

n <- 1000000 # ケース数
df <- data.frame(v1=runif(n),
                 v2=runif(n),
                 v3=runif(n),
                 v4=runif(n),
                 v5=runif(n),
                 v6=runif(n))
gc()
system.time(
lm(v1 ~ v2 + v3 + v4 + v5 + v6, data=df)
)