The R Project SVN R

Rev

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

Rev 72424 Rev 88200
Line 1... Line 1...
1 
### Tests of complex arithemetic.
 1 
### Tests of complex arithmetic.
2 
 
 2 
 
3 
Meps <- .Machine$double.eps
 3 
Meps <- .Machine$double.eps
4 
## complex
 4 
## complex
5 
z <- 0i ^ (-3:3)
 5 
z <- 0i ^ (-3:3)
6 
stopifnot(Re(z) == 0 ^ (-3:3))
 6 
stopifnot(Re(z) == 0 ^ (-3:3))