# SCM Repository

[matrix] Diff of /pkg/R/Matrix.R
 [matrix] / pkg / R / Matrix.R

# Diff of /pkg/R/Matrix.R

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