[R-br] Problemas com split+lapply

[Benilton Carvalho]

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