minor optimizations

Author: jbytecode

src/RcppExports.cpp

@@ -34,14 +34,3 @@ BEGIN_RCPP
     return rcpp_result_gen;
 END_RCPP
 }
-
-static const R_CallMethodDef CallEntries[] = {
-    {"_eive_cga_generate_chromosome", (DL_FUNC) &_eive_cga_generate_chromosome, 2},
-    {"_eive_cga", (DL_FUNC) &_eive_cga, 3},
-    {NULL, NULL, 0}
-};
-
-RcppExport void R_init_eive(DllInfo *dll) {
-    R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
-    R_useDynamicSymbols(dll, FALSE);
-}

src/ccga.cpp

@@ -27,6 +27,7 @@ NumericVector cga(int chsize, int popsize, Function evalFunc)
 	NumericVector winner, loser;
 	NumericVector cost1, cost2;
 	int i, t;
+	double mutation = 1.0 / (double)popsize;
 	while (1)
 	{
 		cga_generate_chromosome(prob_vec, chromosome1);
@@ -47,11 +48,11 @@ NumericVector cga(int chsize, int popsize, Function evalFunc)
 			{
 				if (winner[i] == 1)
 				{
-					prob_vec[i] = prob_vec[i] + (1.0 / popsize);
+					prob_vec[i] = prob_vec[i] + mutation;
 				}
 				else
 				{
-					prob_vec[i] = prob_vec[i] - (1.0 / popsize);
+					prob_vec[i] = prob_vec[i] - mutation;
 				}
 			}
 		}

src/registerDynamicSymbol.c

@@ -4,7 +4,7 @@
 #include <Rinternals.h>
 #include <R_ext/Rdynload.h>
 
-void R_init_forega(DllInfo *info)
+void R_init_eive(DllInfo *info)
 {
   R_registerRoutines(info, NULL, NULL, NULL, NULL);
   R_useDynamicSymbols(info, TRUE);