[Pomp-commits] r680 - pkg/pomp/src

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

Author: kingaa
Date: 2012-04-25 23:48:17 +0200 (Wed, 25 Apr 2012)
New Revision: 680

Modified:
   pkg/pomp/src/bspline.c
Log:
- fix error message


Modified: pkg/pomp/src/bspline.c
===================================================================
--- pkg/pomp/src/bspline.c	2012-04-24 17:09:37 UTC (rev 679)
+++ pkg/pomp/src/bspline.c	2012-04-25 21:48:17 UTC (rev 680)
@@ -68,7 +68,7 @@
   double *xrd, *ydata, *val;
   if (deg < 0) error("periodic_bspline_basis error: must have degree >= 0");
   if (nb <= 0) error("periodic_bspline_basis error: must have nbasis > 0");
-  if (deg > nb) error("periodic_bspline_basis error: must have degree <= nbasis");
+  if (nb < deg) error("periodic_bspline_basis error: must have nbasis >= degree");
   if (pd <= 0.0) error("periodic_bspline_basis error: must have period > 0");
   PROTECT(xr = AS_NUMERIC(x)); nprotect++;
   xrd = REAL(xr);