The R Project SVN R

Rev

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

Rev 72294 Rev 88200
Line 3... Line 3...
3 
stopifnot(is.na(NA %*% 0), is.na(0 %*% NA))
 3 
stopifnot(is.na(NA %*% 0), is.na(0 %*% NA))
4 
## depended on the BLAS in use.
 4 
## depended on the BLAS in use.
5 
 
 5 
 
6 
 
 6 
 
7 
## found from fallback test in slam 0.1-15
 7 
## found from fallback test in slam 0.1-15
8 
## most likely indicates an inaedquate BLAS.
 8 
## most likely indicates an inadequate BLAS.
9 
x <- matrix(c(1, 0, NA, 1), 2, 2)
 9 
x <- matrix(c(1, 0, NA, 1), 2, 2)
10 
y <- matrix(c(1, 0, 0, 2, 1, 0), 3, 2)
 10 
y <- matrix(c(1, 0, 0, 2, 1, 0), 3, 2)
11 
(z <- tcrossprod(x, y))
 11 
(z <- tcrossprod(x, y))
12 
stopifnot(identical(z, x %*% t(y)))
 12 
stopifnot(identical(z, x %*% t(y)))
13 
stopifnot(is.nan(log(0) %*% 0))
 13 
stopifnot(is.nan(log(0) %*% 0))