SCM

SCM Repository

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

Diff of /pkg/R/Ops.R

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

revision 2255, Sat Aug 30 07:20:33 2008 UTC revision 2256, Fri Sep 5 16:23:39 2008 UTC
# Line 43  Line 43 
43            function(e1, e2) callGeneric(Matrix(e1), e2))            function(e1, e2) callGeneric(Matrix(e1), e2))
44    
45  ## bail-outs -- on highest possible level, hence "Ops", not "Compare"/"Arith" :  ## bail-outs -- on highest possible level, hence "Ops", not "Compare"/"Arith" :
46  setMethod("Ops", signature(e1 = "Matrix", e2 = "Matrix"),  .bail.out.Ops <- function(e1, e2) {
47            function(e1, e2) {      if(is(e1, "Matrix") && is(e2, "Matrix"))
48                dimCheck(e1,e2)                dimCheck(e1,e2)
49                .bail.out.2(.Generic, class(e1), class(e2))                .bail.out.2(.Generic, class(e1), class(e2))
50            })            }
51  setMethod("Ops", signature(e1 = "Matrix", e2 = "ANY"),  setMethod("Ops", signature(e1 = "Matrix", e2 = "ANY"), .bail.out.Ops)
52            function(e1, e2) .bail.out.2(.Generic, class(e1), class(e2)))  setMethod("Ops", signature(e1 = "ANY", e2 = "Matrix"), .bail.out.Ops)
53  setMethod("Ops", signature(e1 = "ANY", e2 = "Matrix"),  rm(.bail.out.Ops)
           function(e1, e2) .bail.out.2(.Generic, class(e1), class(e2)))  
54    
55  ## "General principle"  ## "General principle"
56  ##  - - - - - - - - -  ##  - - - - - - - - -

Legend:
Removed from v.2255  
changed lines
  Added in v.2256

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