SCM

SCM Repository

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

Diff of /pkg/R/diagMatrix.R

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

revision 1805, Tue Mar 27 16:46:03 2007 UTC revision 1832, Tue May 1 10:18:27 2007 UTC
# Line 243  Line 243 
243  ## chol(L) is L for logical diagonal:  ## chol(L) is L for logical diagonal:
244  setMethod("chol", signature(x = "ldiMatrix"), function(x, pivot) x)  setMethod("chol", signature(x = "ldiMatrix"), function(x, pivot) x)
245    
 setMethod("!", "ldiMatrix", function(e1) {  
     if(e1@diag == "N")  
         e1@x <- !e1@x  
     else { ## "U"  
         e1@diag <- "N"  
         e1@x <- rep.int(FALSE, e1@Dim[1])  
     }  
     e1  
 })  
   
246  ## Basic Matrix Multiplication {many more to add}  ## Basic Matrix Multiplication {many more to add}
247  ##       ---------------------  ##       ---------------------
248  ## Note that "ldi" logical are treated as numeric  ## Note that "ldi" logical are treated as numeric

Legend:
Removed from v.1805  
changed lines
  Added in v.1832

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