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 885, Tue Aug 30 20:54:55 2005 UTC revision 886, Wed Aug 31 17:49:47 2005 UTC
# Line 22  Line 22 
22               TRUE               TRUE
23           })           })
24    
25    setClass("symmetricMatrix",  representation("VIRTUAL"), contains = "Matrix")
26    setClass("triangularMatrix", representation("VIRTUAL"), contains = "Matrix")
27    
28  # Virtual class of numeric matrices  # Virtual class of numeric matrices
29  setClass("dMatrix",  setClass("dMatrix",
30           representation(x = "numeric", "VIRTUAL"), contains = "Matrix")           representation(x = "numeric", "VIRTUAL"), contains = "Matrix")
# Line 80  Line 83 
83  # numeric, dense, non-packed, triangular matrices  # numeric, dense, non-packed, triangular matrices
84  setClass("dtrMatrix",  setClass("dtrMatrix",
85           representation(uplo = "character", diag = "character"),           representation(uplo = "character", diag = "character"),
86           contains = "dgeMatrix",           contains = c("dgeMatrix","triangularMatrix"),
87           prototype = prototype(uplo = "U", diag = "N"),           prototype = prototype(uplo = "U", diag = "N"),
88           validity = function(object) .Call("dtrMatrix_validate", object)           validity = function(object) .Call("dtrMatrix_validate", object)
89           )           )
# Line 88  Line 91 
91  # numeric, dense, packed, triangular matrices  # numeric, dense, packed, triangular matrices
92  setClass("dtpMatrix",  setClass("dtpMatrix",
93           representation(uplo = "character", diag = "character"),           representation(uplo = "character", diag = "character"),
94           contains = "ddenseMatrix",           contains = c("ddenseMatrix", "triangularMatrix"),
95           prototype = prototype(uplo = "U", diag = "N"),           prototype = prototype(uplo = "U", diag = "N"),
96           validity = function(object) .Call("dtpMatrix_validate", object)           validity = function(object) .Call("dtpMatrix_validate", object)
97           )           )
# Line 97  Line 100 
100  setClass("dsyMatrix",  setClass("dsyMatrix",
101           representation(uplo = "character"),           representation(uplo = "character"),
102           prototype = prototype(uplo = "U"),           prototype = prototype(uplo = "U"),
103           contains = "dgeMatrix",           contains = c("dgeMatrix", "symmetricMatrix"),
104           validity = function(object) .Call("dsyMatrix_validate", object)           validity = function(object) .Call("dsyMatrix_validate", object)
105           )           )
106    
# Line 105  Line 108 
108  setClass("dspMatrix",  setClass("dspMatrix",
109           representation(uplo = "character"),           representation(uplo = "character"),
110           prototype = prototype(uplo = "U"),           prototype = prototype(uplo = "U"),
111           contains = "ddenseMatrix",           contains = c("ddenseMatrix", "symmetricMatrix"),
112           validity = function(object) .Call("dspMatrix_validate", object)           validity = function(object) .Call("dspMatrix_validate", object)
113           )           )
114    
# Line 133  Line 136 
136  # numeric, sparse, triplet triangular matrices  # numeric, sparse, triplet triangular matrices
137  setClass("dtTMatrix",  setClass("dtTMatrix",
138           representation(uplo = "character", diag = "character"),           representation(uplo = "character", diag = "character"),
139           contains = "dgTMatrix",           contains = c("dgTMatrix", "triangularMatrix"),
140           validity = function(object) .Call("dtTMatrix_validate", object)           validity = function(object) .Call("dtTMatrix_validate", object)
141           )           )
142    
# Line 141  Line 144 
144  setClass("dsTMatrix",  setClass("dsTMatrix",
145           representation(uplo = "character"),           representation(uplo = "character"),
146           prototype = prototype(uplo = "U"),           prototype = prototype(uplo = "U"),
147           contains = "dgTMatrix",           contains = c("dgTMatrix", "symmetricMatrix"),
148           validity = function(object) .Call("dsTMatrix_validate", object)           validity = function(object) .Call("dsTMatrix_validate", object)
149           )           )
150    
# Line 155  Line 158 
158  # numeric, sparse, sorted compressed sparse column-oriented triangular matrices  # numeric, sparse, sorted compressed sparse column-oriented triangular matrices
159  setClass("dtCMatrix",  setClass("dtCMatrix",
160           representation(uplo = "character", diag = "character"),           representation(uplo = "character", diag = "character"),
161           contains = "dgCMatrix",           contains = c("dgCMatrix", "triangularMatrix"),
162           validity = function(object) .Call("tsc_validate", object)           validity = function(object) .Call("tsc_validate", object)
163           )           )
164    
165  # numeric, sparse, sorted compressed sparse column-oriented symmetric matrices  # numeric, sparse, sorted compressed sparse column-oriented symmetric matrices
166  setClass("dsCMatrix",  setClass("dsCMatrix",
167           representation(uplo = "character"),           representation(uplo = "character"),
168           contains = "dgCMatrix",           contains = c("dgCMatrix", "symmetricMatrix"),
169           validity = function(object) .Call("dsCMatrix_validate", object)           validity = function(object) .Call("dsCMatrix_validate", object)
170           )           )
171    
# Line 176  Line 179 
179  # numeric, sparse, sorted compressed sparse row-oriented triangular matrices  # numeric, sparse, sorted compressed sparse row-oriented triangular matrices
180  setClass("dtRMatrix",  setClass("dtRMatrix",
181           representation(uplo = "character", diag = "character"),           representation(uplo = "character", diag = "character"),
182           contains = "dgRMatrix",           contains = c("dgRMatrix", "triangularMatrix"),
183           ##TODO: validity = function(object) .Call("dtRMatrix_validate", object)           ##TODO: validity = function(object) .Call("dtRMatrix_validate", object)
184           )           )
185    
186  # numeric, sparse, sorted compressed sparse row-oriented symmetric matrices  # numeric, sparse, sorted compressed sparse row-oriented symmetric matrices
187  setClass("dsRMatrix",  setClass("dsRMatrix",
188           representation(uplo = "character"),           representation(uplo = "character"),
189           contains = "dgRMatrix",           contains = c("dgRMatrix", "symmetricMatrix"),
190           ##TODO: validity = function(object) .Call("dsRMatrix_validate", object)           ##TODO: validity = function(object) .Call("dsRMatrix_validate", object)
191           )           )
192    
# Line 201  Line 204 
204  # logical, sparse, triplet triangular matrices  # logical, sparse, triplet triangular matrices
205  setClass("ltTMatrix",  setClass("ltTMatrix",
206           representation(uplo = "character", diag = "character"),           representation(uplo = "character", diag = "character"),
207           contains = "lgTMatrix",           contains = c("lgTMatrix", "triangularMatrix"),
208           validity = function(object) .Call("ltTMatrix_validate", object)           validity = function(object) .Call("ltTMatrix_validate", object)
209           )           )
210    
211  # logical, sparse, triplet symmetric matrices  # logical, sparse, triplet symmetric matrices
212  setClass("lsTMatrix",  setClass("lsTMatrix",
213           representation(uplo = "character"),           representation(uplo = "character"),
214           contains = "lgTMatrix",           contains = c("lgTMatrix", "symmetricMatrix"),
215           validity = function(object) .Call("lsTMatrix_validate", object)           validity = function(object) .Call("lsTMatrix_validate", object)
216           )           )
217    
# Line 222  Line 225 
225  # logical, sparse, sorted compressed sparse column-oriented triangular matrices  # logical, sparse, sorted compressed sparse column-oriented triangular matrices
226  setClass("ltCMatrix",  setClass("ltCMatrix",
227           representation(uplo = "character", diag = "character"),           representation(uplo = "character", diag = "character"),
228           contains = "lgCMatrix",           contains = c("lgCMatrix", "triangularMatrix"),
229           validity = function(object) .Call("ltCMatrix_validate", object)           validity = function(object) .Call("ltCMatrix_validate", object)
230           )           )
231    
232  # logical, sparse, sorted compressed sparse column-oriented symmetric matrices  # logical, sparse, sorted compressed sparse column-oriented symmetric matrices
233  setClass("lsCMatrix",  setClass("lsCMatrix",
234           representation(uplo = "character"),           representation(uplo = "character"),
235           contains = "lgCMatrix",           contains = c("lgCMatrix", "symmetricMatrix"),
236           validity = function(object) .Call("lsCMatrix_validate", object)           validity = function(object) .Call("lsCMatrix_validate", object)
237           )           )
238    
# Line 243  Line 246 
246  # logical, sparse, sorted compressed sparse row-oriented triangular matrices  # logical, sparse, sorted compressed sparse row-oriented triangular matrices
247  setClass("ltRMatrix",  setClass("ltRMatrix",
248           representation(uplo = "character", diag = "character"),           representation(uplo = "character", diag = "character"),
249           contains = "lgRMatrix",           contains = c("lgRMatrix", "triangularMatrix"),
250           validity = function(object) .Call("ltRMatrix_validate", object)           validity = function(object) .Call("ltRMatrix_validate", object)
251           )           )
252    
253  # logical, sparse, sorted compressed sparse row-oriented symmetric matrices  # logical, sparse, sorted compressed sparse row-oriented symmetric matrices
254  setClass("lsRMatrix",  setClass("lsRMatrix",
255           representation(uplo = "character"),           representation(uplo = "character"),
256           contains = "lgRMatrix",           contains = c("lgRMatrix", "symmetricMatrix"),
257           validity = function(object) .Call("lsRMatrix_validate", object)           validity = function(object) .Call("lsRMatrix_validate", object)
258           )           )
259    
# Line 298  Line 301 
301    
302  ## --------------------- non-"Matrix" Classes --------------------------------  ## --------------------- non-"Matrix" Classes --------------------------------
303    
304    ## --- "General" (not Matrix at all) ----
305    
306    ## for 'i' in x[i] or A[i,] :
307    setClassUnion("index", members =  c("numeric", "logical", "character"))
308    
309    
310    ## --- Matrix - related ----
311    
312  setClass("determinant",  setClass("determinant",
313           representation(modulus ="numeric",           representation(modulus ="numeric",
314                          logarithm = "logical",                          logarithm = "logical",
# Line 388  Line 399 
399  setClass("lmer.coef",  setClass("lmer.coef",
400           representation(varFac = "list", stdErr = "numeric"),           representation(varFac = "list", stdErr = "numeric"),
401           contains = "list")           contains = "list")
402    

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

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