Julia ときどき R, Python によるコンピュータプログラム,コンピュータ・サイエンス,統計学 色々な条件により細かい部分は異なるが,以下のようなプログラムによって分かったことは衝撃的? nr <- 10000 nc <- 1000 x <- matrix(rnorm(nr*nc), nr, nc) d <- as.data.frame(x) # データフレームに対して ## for ループ gc();gc();system.time({ m1 <- numeric(nc) for (i in 1:nc) { m1[i] <- mean(d[,i]) } }) ## apply system.time({ m2 <- apply(d, 2, mean) }) ## colMeans system.time({ m3 <- colMeans(d) }) ## sapply syst