## ¸ÖƼÄÚ¾î ¶Ç´Â ¸ÖƼ½º·¹µå·Î ÀÏÀ» º´·Äó¸®ÇÏ¿© »¡¸® ³¡³»ÁÜ
•install.packages("doParallel")
•library(doParallel)
•registerDoParallel(cores=4)
•data <- data.frame( value=runif(NROW(LETTERS) * 2000), group=rep(LETTERS, 2000))
•foreach(i=1:800) %dopar% { mean(big_data$value + 1) }
•foreach(i=1:80000) %dopar% { mean(big_data$value + 1) } ## ÀÛ¾÷°ü¸®ÀÚÀÇ ÇÁ·Î¼¼½º¿¡ º¸¸é Rscript°¡ 4°³ ½ÇÇàµÇ°í ÀÖÀ½