SCM

SCM Repository

[matrix] Diff of /pkg/tests/matr-exp.R
ViewVC logotype

Diff of /pkg/tests/matr-exp.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 523, Mon Feb 7 09:25:50 2005 UTC revision 524, Mon Feb 7 09:30:58 2005 UTC
# Line 14  Line 14 
14  e2 <- expm(m2)  e2 <- expm(m2)
15  assert.EQ.mat(e2, rbind(c(-0.73575875814475, 0.55181909965810),  assert.EQ.mat(e2, rbind(c(-0.73575875814475, 0.55181909965810),
16                          c(-1.47151759908826, 1.10363824071557)),                          c(-1.47151759908826, 1.10363824071557)),
17                tol = 1e-14)                tol = 1e-13)
18  ## The ``surprising identity''      det(exp(A)) == exp( tr(A) )  ## The ``surprising identity''      det(exp(A)) == exp( tr(A) )
19  ## or                           log det(exp(A)) == tr(A) :  ## or                           log det(exp(A)) == tr(A) :
20  stopifnot(all.equal(determinant(e2)$modulus, sum(diag(m2))))  stopifnot(all.equal(determinant(e2)$modulus, sum(diag(m2))))

Legend:
Removed from v.523  
changed lines
  Added in v.524

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge