SCM

SCM Repository

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

Diff of /pkg/Matrix/R/diagMatrix.R

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

revision 2268, Mon Sep 22 15:17:12 2008 UTC revision 2331, Thu Jan 29 15:13:15 2009 UTC
# Line 900  Line 900 
900      setMethod("Ops", signature(e1 = other, e2 = "ldiMatrix"),      setMethod("Ops", signature(e1 = other, e2 = "ldiMatrix"),
901                function(e1,e2) callGeneric(e1, diag2tT.u(e2,e1, "l")))                function(e1,e2) callGeneric(e1, diag2tT.u(e2,e1, "l")))
902  }  }
903    
904    ## Direct subclasses of "denseMatrix": currently ddenseMatrix, ldense... :
905    dense.subCl <- local({ dM.scl <- getClass("denseMatrix")@subclasses
906                           names(dM.scl)[sapply(dM.scl, slot, "distance") == 1] })
907  for(DI in diCls) {  for(DI in diCls) {
908      for(c2 in c("denseMatrix", "Matrix")) {      for(c2 in c(dense.subCl, "Matrix")) {
909          for(Fun in c("*", "^", "&")) {          for(Fun in c("*", "^", "&")) {
910              setMethod(Fun, signature(e1 = DI, e2 = c2),              setMethod(Fun, signature(e1 = DI, e2 = c2),
911                        function(e1,e2) callGeneric(e1, Diagonal(x = diag(e2))))                        function(e1,e2) callGeneric(e1, Diagonal(x = diag(e2))))

Legend:
Removed from v.2268  
changed lines
  Added in v.2331

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