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 1653, Tue Oct 24 21:45:22 2006 UTC revision 1654, Fri Oct 27 16:58:15 2006 UTC
# Line 221  Line 221 
221                Y <- as(Y, "matrix") ; Matrix(callGeneric()) })                Y <- as(Y, "matrix") ; Matrix(callGeneric()) })
222    
223    
224    ## FIXME: All of these should never be called
225    setMethod("chol", signature(x = "Matrix"),
226              function(x, pivot = FALSE) .bail.out.1(.Generic, class(x)))
227    setMethod("determinant", signature(x = "Matrix"),
228              function(x, logarithm = TRUE) .bail.out.1(.Generic, class(x)))
229    
230  setMethod("diag", signature(x = "Matrix"),  setMethod("diag", signature(x = "Matrix"),
231            function(x, nrow, ncol) .bail.out.1(.Generic, class(x)))            function(x, nrow, ncol) .bail.out.1(.Generic, class(x)))
232  setMethod("t", signature(x = "Matrix"),  setMethod("t", signature(x = "Matrix"),
# Line 235  Line 241 
241                0-e1                0-e1
242            })            })
243    
244  ## bail-outs:  ## bail-outs -- on highest possible level, hence "Ops", not "Compare"/"Arith" :
245  setMethod("Compare", signature(e1 = "Matrix", e2 = "Matrix"),  setMethod("Ops", signature(e1 = "Matrix", e2 = "Matrix"),
246            function(e1, e2) {            function(e1, e2) {
247                d <- dimCheck(e1,e2)                d <- dimCheck(e1,e2)
248                .bail.out.2(.Generic, class(e1), class(e2))                .bail.out.2(.Generic, class(e1), class(e2))
249            })            })
250  setMethod("Compare", signature(e1 = "Matrix", e2 = "ANY"),  setMethod("Ops", signature(e1 = "Matrix", e2 = "ANY"),
251            function(e1, e2) .bail.out.2(.Generic, class(e1), class(e2)))            function(e1, e2) .bail.out.2(.Generic, class(e1), class(e2)))
252  setMethod("Compare", signature(e1 = "ANY", e2 = "Matrix"),  setMethod("Ops", signature(e1 = "ANY", e2 = "Matrix"),
253            function(e1, e2) .bail.out.2(.Generic, class(e1), class(e2)))            function(e1, e2) .bail.out.2(.Generic, class(e1), class(e2)))
254    
255    

Legend:
Removed from v.1653  
changed lines
  Added in v.1654

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