°øÀ¯ÀÚ·á HOME > ÀÚ·á½Ç > °øÀ¯ÀÚ·á
 
[MIS¼¼¹Ì³ª] R¼ö¾÷ º´·Äó¸® code
°ü¸®ÀÚ 15-10-14 10:45 1,712
 
## ¸ÖƼÄÚ¾î ¶Ç´Â ¸ÖƼ½º·¹µå·Î ÀÏÀ» º´·Äó¸®ÇÏ¿© »¡¸® ³¡³»ÁÜ
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°³ ½ÇÇàµÇ°í ÀÖÀ½