SCM

SCM Repository

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

Diff of /pkg/R/AllClass.R

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

revision 886, Wed Aug 31 17:49:47 2005 UTC revision 887, Wed Aug 31 20:31:47 2005 UTC
# Line 22  Line 22 
22               TRUE               TRUE
23           })           })
24    
25  setClass("symmetricMatrix",  representation("VIRTUAL"), contains = "Matrix")  setClass("symmetricMatrix",
26  setClass("triangularMatrix", representation("VIRTUAL"), contains = "Matrix")           representation(uplo = "character", "VIRTUAL"),
27             contains = "Matrix")
28    
29    setClass("triangularMatrix",
30             representation(uplo = "character", diag = "character",
31                            "VIRTUAL"), contains = "Matrix")
32    
33  # Virtual class of numeric matrices  # Virtual class of numeric matrices
34  setClass("dMatrix",  setClass("dMatrix",
# Line 82  Line 87 
87    
88  # numeric, dense, non-packed, triangular matrices  # numeric, dense, non-packed, triangular matrices
89  setClass("dtrMatrix",  setClass("dtrMatrix",
          representation(uplo = "character", diag = "character"),  
90           contains = c("dgeMatrix","triangularMatrix"),           contains = c("dgeMatrix","triangularMatrix"),
91           prototype = prototype(uplo = "U", diag = "N"),           prototype = prototype(uplo = "U", diag = "N"),
92           validity = function(object) .Call("dtrMatrix_validate", object)           validity = function(object) .Call("dtrMatrix_validate", object)
# Line 90  Line 94 
94    
95  # numeric, dense, packed, triangular matrices  # numeric, dense, packed, triangular matrices
96  setClass("dtpMatrix",  setClass("dtpMatrix",
          representation(uplo = "character", diag = "character"),  
97           contains = c("ddenseMatrix", "triangularMatrix"),           contains = c("ddenseMatrix", "triangularMatrix"),
98           prototype = prototype(uplo = "U", diag = "N"),           prototype = prototype(uplo = "U", diag = "N"),
99           validity = function(object) .Call("dtpMatrix_validate", object)           validity = function(object) .Call("dtpMatrix_validate", object)
# Line 98  Line 101 
101    
102  # numeric, dense, non-packed symmetric matrices  # numeric, dense, non-packed symmetric matrices
103  setClass("dsyMatrix",  setClass("dsyMatrix",
          representation(uplo = "character"),  
          prototype = prototype(uplo = "U"),  
104           contains = c("dgeMatrix", "symmetricMatrix"),           contains = c("dgeMatrix", "symmetricMatrix"),
105             prototype = prototype(uplo = "U"),
106           validity = function(object) .Call("dsyMatrix_validate", object)           validity = function(object) .Call("dsyMatrix_validate", object)
107           )           )
108    
109  # numeric, dense, packed symmetric matrices  # numeric, dense, packed symmetric matrices
110  setClass("dspMatrix",  setClass("dspMatrix",
          representation(uplo = "character"),  
111           prototype = prototype(uplo = "U"),           prototype = prototype(uplo = "U"),
112           contains = c("ddenseMatrix", "symmetricMatrix"),           contains = c("ddenseMatrix", "symmetricMatrix"),
113           validity = function(object) .Call("dspMatrix_validate", object)           validity = function(object) .Call("dspMatrix_validate", object)
# Line 135  Line 136 
136    
137  # numeric, sparse, triplet triangular matrices  # numeric, sparse, triplet triangular matrices
138  setClass("dtTMatrix",  setClass("dtTMatrix",
          representation(uplo = "character", diag = "character"),  
139           contains = c("dgTMatrix", "triangularMatrix"),           contains = c("dgTMatrix", "triangularMatrix"),
140           validity = function(object) .Call("dtTMatrix_validate", object)           validity = function(object) .Call("dtTMatrix_validate", object)
141           )           )
142    
143  # numeric, sparse, triplet symmetric matrices  # numeric, sparse, triplet symmetric matrices
144  setClass("dsTMatrix",  setClass("dsTMatrix",
          representation(uplo = "character"),  
145           prototype = prototype(uplo = "U"),           prototype = prototype(uplo = "U"),
146           contains = c("dgTMatrix", "symmetricMatrix"),           contains = c("dgTMatrix", "symmetricMatrix"),
147           validity = function(object) .Call("dsTMatrix_validate", object)           validity = function(object) .Call("dsTMatrix_validate", object)
# Line 157  Line 156 
156    
157  # numeric, sparse, sorted compressed sparse column-oriented triangular matrices  # numeric, sparse, sorted compressed sparse column-oriented triangular matrices
158  setClass("dtCMatrix",  setClass("dtCMatrix",
          representation(uplo = "character", diag = "character"),  
159           contains = c("dgCMatrix", "triangularMatrix"),           contains = c("dgCMatrix", "triangularMatrix"),
160           validity = function(object) .Call("tsc_validate", object)           validity = function(object) .Call("tsc_validate", object)
161           )           )
162    
163  # numeric, sparse, sorted compressed sparse column-oriented symmetric matrices  # numeric, sparse, sorted compressed sparse column-oriented symmetric matrices
164  setClass("dsCMatrix",  setClass("dsCMatrix",
          representation(uplo = "character"),  
165           contains = c("dgCMatrix", "symmetricMatrix"),           contains = c("dgCMatrix", "symmetricMatrix"),
166           validity = function(object) .Call("dsCMatrix_validate", object)           validity = function(object) .Call("dsCMatrix_validate", object)
167           )           )
# Line 178  Line 175 
175    
176  # numeric, sparse, sorted compressed sparse row-oriented triangular matrices  # numeric, sparse, sorted compressed sparse row-oriented triangular matrices
177  setClass("dtRMatrix",  setClass("dtRMatrix",
          representation(uplo = "character", diag = "character"),  
178           contains = c("dgRMatrix", "triangularMatrix"),           contains = c("dgRMatrix", "triangularMatrix"),
179           ##TODO: validity = function(object) .Call("dtRMatrix_validate", object)           ##TODO: validity = function(object) .Call("dtRMatrix_validate", object)
180           )           )
181    
182  # numeric, sparse, sorted compressed sparse row-oriented symmetric matrices  # numeric, sparse, sorted compressed sparse row-oriented symmetric matrices
183  setClass("dsRMatrix",  setClass("dsRMatrix",
          representation(uplo = "character"),  
184           contains = c("dgRMatrix", "symmetricMatrix"),           contains = c("dgRMatrix", "symmetricMatrix"),
185           ##TODO: validity = function(object) .Call("dsRMatrix_validate", object)           ##TODO: validity = function(object) .Call("dsRMatrix_validate", object)
186           )           )
# Line 203  Line 198 
198    
199  # logical, sparse, triplet triangular matrices  # logical, sparse, triplet triangular matrices
200  setClass("ltTMatrix",  setClass("ltTMatrix",
          representation(uplo = "character", diag = "character"),  
201           contains = c("lgTMatrix", "triangularMatrix"),           contains = c("lgTMatrix", "triangularMatrix"),
202           validity = function(object) .Call("ltTMatrix_validate", object)           validity = function(object) .Call("ltTMatrix_validate", object)
203           )           )
204    
205  # logical, sparse, triplet symmetric matrices  # logical, sparse, triplet symmetric matrices
206  setClass("lsTMatrix",  setClass("lsTMatrix",
          representation(uplo = "character"),  
207           contains = c("lgTMatrix", "symmetricMatrix"),           contains = c("lgTMatrix", "symmetricMatrix"),
208           validity = function(object) .Call("lsTMatrix_validate", object)           validity = function(object) .Call("lsTMatrix_validate", object)
209           )           )
# Line 224  Line 217 
217    
218  # logical, sparse, sorted compressed sparse column-oriented triangular matrices  # logical, sparse, sorted compressed sparse column-oriented triangular matrices
219  setClass("ltCMatrix",  setClass("ltCMatrix",
          representation(uplo = "character", diag = "character"),  
220           contains = c("lgCMatrix", "triangularMatrix"),           contains = c("lgCMatrix", "triangularMatrix"),
221           validity = function(object) .Call("ltCMatrix_validate", object)           validity = function(object) .Call("ltCMatrix_validate", object)
222           )           )
223    
224  # logical, sparse, sorted compressed sparse column-oriented symmetric matrices  # logical, sparse, sorted compressed sparse column-oriented symmetric matrices
225  setClass("lsCMatrix",  setClass("lsCMatrix",
          representation(uplo = "character"),  
226           contains = c("lgCMatrix", "symmetricMatrix"),           contains = c("lgCMatrix", "symmetricMatrix"),
227           validity = function(object) .Call("lsCMatrix_validate", object)           validity = function(object) .Call("lsCMatrix_validate", object)
228           )           )
# Line 245  Line 236 
236    
237  # logical, sparse, sorted compressed sparse row-oriented triangular matrices  # logical, sparse, sorted compressed sparse row-oriented triangular matrices
238  setClass("ltRMatrix",  setClass("ltRMatrix",
          representation(uplo = "character", diag = "character"),  
239           contains = c("lgRMatrix", "triangularMatrix"),           contains = c("lgRMatrix", "triangularMatrix"),
240           validity = function(object) .Call("ltRMatrix_validate", object)           validity = function(object) .Call("ltRMatrix_validate", object)
241           )           )
242    
243  # logical, sparse, sorted compressed sparse row-oriented symmetric matrices  # logical, sparse, sorted compressed sparse row-oriented symmetric matrices
244  setClass("lsRMatrix",  setClass("lsRMatrix",
          representation(uplo = "character"),  
245           contains = c("lgRMatrix", "symmetricMatrix"),           contains = c("lgRMatrix", "symmetricMatrix"),
246           validity = function(object) .Call("lsRMatrix_validate", object)           validity = function(object) .Call("lsRMatrix_validate", object)
247           )           )

Legend:
Removed from v.886  
changed lines
  Added in v.887

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