[Gmm-commits] r73 - pkg/gmmExtra/R

[noreply at r-forge.r-project.org]

Author: chaussep
Date: 2013-06-26 23:16:50 +0200 (Wed, 26 Jun 2013)
New Revision: 73

Modified:
   pkg/gmmExtra/R/bootGmm.R
Log:
changed the SimbyBlock

Modified: pkg/gmmExtra/R/bootGmm.R
===================================================================
--- pkg/gmmExtra/R/bootGmm.R	2013-04-17 23:13:45 UTC (rev 72)
+++ pkg/gmmExtra/R/bootGmm.R	2013-06-26 21:16:50 UTC (rev 73)
@@ -120,7 +120,7 @@
 			.timeSimul(i,titer,comment=paste("(",niter," estimations per iteration)",sep=""), env=parent.frame())
 
 		L1 <- list(...)
-		L2 <- c(L1,list(X=c((nfin+1):(nfin+niter)), FUN=f2))
+		L2 <- c(L1,list(X=c((nfin+1):(nfin+niter)), FUN=f2, mc.cores=niter))
 		res2 <- do.call(mclapply,L2)
 		for (j in 1:length(res2))
 			res[[(nfin+j)]] <- res2[[j]]