[Deoptim-commits] r103 - pkg/DEoptim/R

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

Author: braverock
Date: 2012-05-20 21:03:52 +0200 (Sun, 20 May 2012)
New Revision: 103

Modified:
   pkg/DEoptim/R/DEoptim.R
Log:
- fix typo

Modified: pkg/DEoptim/R/DEoptim.R
===================================================================
--- pkg/DEoptim/R/DEoptim.R	2012-05-16 12:29:51 UTC (rev 102)
+++ pkg/DEoptim/R/DEoptim.R	2012-05-20 19:03:52 UTC (rev 103)
@@ -5,7 +5,7 @@
                             ...,
                             reltol, steptol, 
                             parallelType = c('none','auto','parallel','foreach'),
-                            parallelArgs) 
+                            parallelArgs=NULL) 
 { #begin function
   
   #check for bounds  
@@ -65,7 +65,7 @@
       parallelType<-parallelType[1]
   }  
   # handle 'auto' auto-detect
-  if(parallelType='auto'){
+  if(parallelType=='auto'){
      pkgs<-.packages()
      rv<-R.version()
      if('foreach' %in% pkgs){
@@ -80,13 +80,13 @@
   }
   #support old deprecated parallelType arguments
   switch(parallelType,
-          0 = {
+          '0'= {
               parallelType='none' 
           },
-          1= {
+          '1'= {
               parallelType='parallel' 
           },
-          2 = {
+          '2'= {
               parallelType='foreach' 
           }
   )