add some sanity-checking code

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

Author: ripley

src/library/stats/R/loess.R

@@ -316,6 +316,10 @@ predLoess <-
     order.drop.sqr <- (2L - drop.square)[order.parametric]
     storage.mode(x) <- "double"
     storage.mode(y) <- "double"
+    ## package intamap somehow gets NULL
+    N <- nrow(x)
+    if (length(weights) < N) weights <- rep(1, N)
+    if (length(robust) < N) robust <- rep(1, N)
     if(surface == "direct") {
         nas <- rowSums(is.na(newx)) > 0
         fit <- rep_len(NA_real_, length(nas))

src/library/stats/R/ppr.R

@@ -65,6 +65,8 @@ function(x, y, weights=rep(1,n), ww=rep(1,q), nterms, max.terms=nterms,
         stop("'ppr' applies only to numerical variables")
     n <- nrow(x)
     if(nrow(y) != n) stop("mismatched 'x' and 'y'")
+    if(length(weights) != n)
+        stop("mismatched 'x' and 'weights'")
     p <- ncol(x)
     q <- ncol(y)
     xnames <- if(!is.null(dimnames(x))) dimnames(x)[[2L]] else paste0("X", 1L:p)