The R Project SVN R

Rev

Rev 28090 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 28090 Rev 28125
Line 2911... Line 2911...
2911 
x <- matrix(rnorm(400), ncol=4)
 2911 
x <- matrix(rnorm(400), ncol=4)
2912 
fit <- princomp(covmat=cov(x))
 2912 
fit <- princomp(covmat=cov(x))
2913 
stopifnot(is.null(fit$scores))
 2913 
stopifnot(is.null(fit$scores))
2914 
stopifnot(is.na(predict(fit, newdata=x[1:10, ])))
 2914 
stopifnot(is.na(predict(fit, newdata=x[1:10, ])))
2915 
## failed in 1.8.1
 2915 
## failed in 1.8.1
- 
 
 2916 
 
- 
 
 2917 
 
- 
 
 2918 
## (PR#6451) regex functions did not coerce args to character.
- 
 
 2919 
sub(x=NA, pattern="x", replacement="y")
- 
 
 2920 
## failed in 1.8.1