The R Project SVN R

Rev

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

Rev 57524 Rev 64891
Line 13... Line 13...
13 
round(m,3)
 13 
round(m,3)
14 
stopifnot(m[,as.character(0:2)] == cbind(1,a,a*a),
 14 
stopifnot(m[,as.character(0:2)] == cbind(1,a,a*a),
15 
                                        # latter were only approximate
 15 
                                        # latter were only approximate
16 
          all.equal(unname(m[,"0.5"]),
 16 
          all.equal(unname(m[,"0.5"]),
17 
                    sqrt(abs(a))*ifelse(a < 0, 1i, 1),
 17 
                    sqrt(abs(a))*ifelse(a < 0, 1i, 1),
18 
                    tol= 20*Meps))
 18 
                    tolerance = 20*Meps))
19 
 
 19 
 
20 
## 2.10.0-2.12.1 got z^n wrong in the !HAVE_C99_COMPLEX case
 20 
## 2.10.0-2.12.1 got z^n wrong in the !HAVE_C99_COMPLEX case
21 
z <- 0.2853725+0.3927816i
 21 
z <- 0.2853725+0.3927816i
22 
z2 <- z^(1:20)
 22 
z2 <- z^(1:20)
23 
z3 <- z^-(1:20)
 23 
z3 <- z^-(1:20)