The R Project SVN – R – Diff – /branches/R-exp-R5/src/main/optimize.c

     double f_ax, f_bx;
     DO_ZEROIN_part_1;
     /* f(ax) = f(xmin) */
     f_ax = asReal(CAR(args));
-    if (!R_FINITE(f_ax))
+    if (ISNA(f_ax))
-	error(_("invalid '%s' value"), "f_ax");
+	error(_("NA value for '%s' is not allowed"), "f.lower");
     args = CDR(args);
     /* f(bx) = f(xmax) */
     f_bx = asReal(CAR(args));
-    if (!R_FINITE(f_bx))
+    if (ISNA(f_bx))
-	error(_("invalid '%s' value"), "f_bx");
+	error(_("NA value for '%s' is not allowed"), "f.upper");
     args = CDR(args);
     DO_ZEROIN_part_2;
     REAL(res)[0] =

The R Project SVN R