SCM

SCM Repository

[matrix] Diff of /pkg/R/Matrix.R
ViewVC logotype

Diff of /pkg/R/Matrix.R

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

revision 1164, Sat Jan 14 23:40:42 2006 UTC revision 1165, Sat Jan 14 23:41:55 2006 UTC
# Line 18  Line 18 
18    
19    
20  ## Note that isSymmetric is *not* exported ---  ## Note that isSymmetric is *not* exported ---
21  ### but also note that "base" eigen may get an isSymmetric() that *would* be exported!  ## but also note that "base" eigen now (R 2.3.0) has an isSymmetric()
22  setMethod("isSymmetric", signature(object = "symmetricMatrix"),  setMethod("isSymmetric", signature(object = "symmetricMatrix"),
23            function(object,tol) TRUE)            function(object,tol) TRUE)
24  setMethod("isSymmetric", signature(object = "triangularMatrix"),  setMethod("isSymmetric", signature(object = "triangularMatrix"),
25            ## FIXME: 'TRUE' if *diagonal*, i.e. return(isDiagonal(object))            ## FIXME: 'TRUE' if *diagonal*, i.e. return(isDiagonal(object))
26            function(object,tol) FALSE)            function(object,tol) FALSE)
27    
28    setMethod("isTriangular", signature(object = "triangularMatrix"),
29              function(object,tol) TRUE)
30    
31  setMethod("isDiagonal", signature(object = "sparseMatrix"),  setMethod("isDiagonal", signature(object = "sparseMatrix"),
32            function(object) {            function(object) {
33                gT <- as(object, "TsparseMatrix")                gT <- as(object, "TsparseMatrix")

Legend:
Removed from v.1164  
changed lines
  Added in v.1165

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