# SCM Repository

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

# Diff of /pkg/R/Matrix.R

revision 578, Sat Feb 26 18:25:09 2005 UTC revision 579, Sun Feb 27 00:04:16 2005 UTC
# Line 20  Line 20
20
21  setMethod("show", signature(object = "Matrix"), prMatrix)  setMethod("show", signature(object = "Matrix"), prMatrix)
22
23    if(FALSE) {## FIXME: we should do this here (for all subclasses),
24        ##        -----  but it coerces some to "Matrix" {with no @x slot}
25    setMethod("dim", signature(x = "Matrix"),
26              function(x) x@Dim, valueClass = "integer")
27    setMethod("dimnames", signature(x = "Matrix"), function(x) x@Dimnames)
28    }# FIXME
29
30  Matrix <-  Matrix <-
31      function (data = NA, nrow = 1, ncol = 1, byrow = FALSE, dimnames = NULL)      function (data = NA, nrow = 1, ncol = 1, byrow = FALSE, dimnames = NULL)
32  {  {
# Line 37  Line 44
44  }  }
45
46
47  if(FALSE) { ##--- never used --  if(FALSE) { ##--- not-yet used -- {almost same code also in ./dgeMatrix.R }
48
49  ## utility for as.Matrix() :  ## utility for as.Matrix() {which is currently invalid }
50  Matrix.class <- function(x, tol = 0, symmetry = TRUE, unit.diagonal = TRUE,  Matrix.class <- function(x, tol = 0, symmetry = TRUE, unit.diagonal = TRUE,
51                           triangularity = c(TRUE, TRUE),                           triangularity = c(TRUE, TRUE),
52                           orthogonality = c(TRUE, TRUE),                           orthogonality = c(TRUE, TRUE),
# Line 91  Line 98
98               Matrix.class(x, tol = tol))               Matrix.class(x, tol = tol))
99  }  }
100
101  }## never used  }## not-yet used

Legend:
 Removed from v.578 changed lines Added in v.579