The R Project SVN R

Rev

Rev 76674 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 76674 Rev 76744
Line 71... Line 71...
71 
head(rN., 4); tail(rN.) # more NA's too, still not *so* many:
 71 
head(rN., 4); tail(rN.) # more NA's too, still not *so* many:
72 
stopifnot(exprs = {
 72 
stopifnot(exprs = {
73 
   !anyNA(rN[,2:3])
 73 
   !anyNA(rN[,2:3])
74 
   identical(which(is.na(rN[,"keep"])), c(2L, 40L))
 74 
   identical(which(is.na(rN[,"keep"])), c(2L, 40L))
75 
   identical(which(is.na(rN.), arr.ind=TRUE, useNames=FALSE),
 75 
   identical(which(is.na(rN.), arr.ind=TRUE, useNames=FALSE),
76 
             rbind(cbind(c(1:2,37:38,40L), 1L),
 76 
             cbind(c(1:2,40L), 1L))
77 
                   cbind(37:41, 2L), cbind(37:38, 3L)))
 - 
 
78 
   identical(rN.[39:41, "median"], c(324, 397, 470))
 77 
   identical(rN.[38:41, "median"], c(289,289, 397, 470))
79 
})
 78 
})
80 
}
 79 
}
81 
\keyword{smooth}
 80 
\keyword{smooth}
82 
\keyword{robust}
 81 
\keyword{robust}