31 Out
2011
31 Out
'11
12:33
O uso que vc esta' fazendo dos recursos de computacao paralela esta' incorreto. Use apenas: library(plyr) library(doMC) registerDoMC() a.2 <- ddply(a,c('R','CC','TF'),ma.fun,k=3,.parallel=T) Com o conjunto de dados de exemplo q vc deu, eu obtenho:
system.time(a.2<-ddply(a,c('R','CC','TF'),ma.fun,k=3,.parallel=T)) user system elapsed 10.426 2.318 3.933