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 965, Wed Oct 5 16:57:55 2005 UTC revision 973, Fri Oct 7 20:15:08 2005 UTC
# Line 17  Line 17 
17            function(x) as.vector(as(x, "matrix")))            function(x) as.vector(as(x, "matrix")))
18    
19    
20  ## Note that isSymmetric is *not* exported  ## Note that isSymmetric is *not* exported ---
21  setMethod("isSymmetric", signature(object = "symmetricMatrix"),  ### but also note that "base" eigen may get an isSymmetric() that *would* be exported!
22            function(object) TRUE)  setMethod("isSymmetric", signature(object = "symmetricMatrix", tol="ANY"),
23  setMethod("isSymmetric", signature(object = "triangularMatrix"),            function(object,tol) TRUE)
24    setMethod("isSymmetric", signature(object = "triangularMatrix", tol="ANY"),
25            ## FIXME: 'TRUE' if *diagonal*, i.e. return(isDiagonal(object))            ## FIXME: 'TRUE' if *diagonal*, i.e. return(isDiagonal(object))
26            function(object) FALSE)            function(object,tol) FALSE)
27    
28  setMethod("isDiagonal", signature(object = "sparseMatrix"),  setMethod("isDiagonal", signature(object = "sparseMatrix"),
29            function(object) {            function(object) {
30                gT <- as(object, "TsparseMatrix")                gT <- as(object, "TsparseMatrix")

Legend:
Removed from v.965  
changed lines
  Added in v.973

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