diff --git a/CHANGES.md b/CHANGES.md
index 2c0c5122f..62d21c21a 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -19,3 +19,4 @@ xgboost-unity
 * Experimental version of LambdaRank
 * Linear booster is now parallelized, using parallel coordinated descent.
 * Add [Code Guide](src/README.md) for customizing objective function and evaluation
+* Add R module
diff --git a/src/learner/evaluation.h b/src/learner/evaluation.h
index 02fb8fdf8..966499965 100644
--- a/src/learner/evaluation.h
+++ b/src/learner/evaluation.h
@@ -43,7 +43,6 @@ inline IEvaluator* CreateEvaluator(const char *name) {
   if (!strncmp(name, "ams@", 4)) return new EvalAMS(name);
   if (!strncmp(name, "pre@", 4)) return new EvalPrecision(name);
   if (!strncmp(name, "pratio@", 7)) return new EvalPrecisionRatio(name);
-  if (!strncmp(name, "apratio@", 8)) return new EvalPrecisionRatio(name);
   if (!strncmp(name, "map", 3)) return new EvalMAP(name);
   if (!strncmp(name, "ndcg", 3)) return new EvalNDCG(name);
   utils::Error("unknown evaluation metric type: %s", name);