The R Project SVN R

Rev

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

Rev 85252 Rev 88200
Line 13... Line 13...
13 
 
 13 
 
14 
Type 'demo()' for some demos, 'help()' for on-line help, or
 14 
Type 'demo()' for some demos, 'help()' for on-line help, or
15 
'help.start()' for an HTML browser interface to help.
 15 
'help.start()' for an HTML browser interface to help.
16 
Type 'q()' to quit R.
 16 
Type 'q()' to quit R.
17 
 
 17 
 
18 
> ### Tests of complex arithemetic.
 18 
> ### Tests of complex arithmetic.
19 
>
19 
>
20 
> Meps <- .Machine$double.eps
 20 
> Meps <- .Machine$double.eps
21 
> ## complex
 21 
> ## complex
22 
> z <- 0i ^ (-3:3)
 22 
> z <- 0i ^ (-3:3)
23 
> stopifnot(Re(z) == 0 ^ (-3:3))
 23 
> stopifnot(Re(z) == 0 ^ (-3:3))