as some sanity checking to smooth.spline, one seen in package checks

git-svn-id: https://svn.r-project.org/R/trunk@87397 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: ripley

doc/NEWS.Rd

@@ -448,7 +448,11 @@
       \item \code{rbind()} now works correctly when inputs include a raw
       vector and a logical, integer or double vector -- previously the
       inclusion of the latter was garbled.
-     }
+
+      \item \code{smooth.spline()} checks validoity of its arguements
+      \code{df.offset} and \code{penalty}: it could segfault if they
+      were \code{NULL}.
+    }
   }
 }
 

src/library/stats/R/smspline.R

@@ -166,6 +166,10 @@ smooth.spline <-
     ## icrit {../src/sslvrg.f}:
     ##		(0 = no crit,  1 = GCV ,  2 = ord.CV , 3 = df-matching)
     icrit <- if(is.na(cv)) 0L else if(cv) 2L else 1L
+    if(!is.numeric(df.offset) || df.offset < 0)
+        stop("df.offset must be numeric and >= 0")
+    if(!is.numeric(penalty) || penalty <= 0)
+        stop("penalty must be numeric and > 0")
     dofoff <- df.offset
     if(!missing(df)) { # not when cv was NA
 	if(df > 1 && df <= nx) {