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 538, Thu Feb 10 13:50:27 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.538  
changed lines
  Added in v.579

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