SCM

SCM Repository

[matrix] Annotation of /pkg/R/AllGeneric.R
ViewVC logotype

Annotation of /pkg/R/AllGeneric.R

Parent Directory Parent Directory | Revision Log Revision Log


Revision 241 - (view) (download)

1 : bates 10 # Define those generics that we need, if they don't exist
2 :    
3 :     if (!isGeneric("expand")) {
4 :     setGeneric("expand", function(x, ...) standardGeneric("expand"))
5 :     }
6 :    
7 :     if (!isGeneric("facmul")) {
8 :     setGeneric("facmul",
9 :     function(x, factor, y, transpose, left, ...)
10 :     standardGeneric("facmul"))
11 :     }
12 :    
13 :     if (!isGeneric("lu")) {
14 :     setGeneric("lu", function(x, ...) standardGeneric("lu"))
15 :     }
16 :    
17 :     if (!isGeneric("norm")) {
18 :     setGeneric("norm", function(x, type, ...) standardGeneric("norm"))
19 :     }
20 :    
21 :     if (!isGeneric("rcond")) {
22 :     setGeneric("rcond", function(x, type, ...) standardGeneric("rcond"))
23 :     }
24 :    
25 :     if (!isGeneric("Schur")) {
26 :     setGeneric("Schur", function(x, vectors, ...) standardGeneric("Schur"))
27 :     }
28 :    
29 :     if (!isGeneric("unpack")) {
30 :     setGeneric("unpack", function(x, ...) standardGeneric("unpack"))
31 :     }
32 :    
33 :     if (!isGeneric("%p%")) {
34 :     setGeneric("%p%", function(a, b) standardGeneric("%p%"))
35 :     }
36 :    
37 :     if (!isGeneric("coef<-")) {
38 : bates 17 setGeneric("coef<-", function(object, ..., value)
39 :     standardGeneric("coef<-"))
40 : bates 10 }
41 :    
42 :     ## The generics pdFactor, pdMatrix, corFactor and corMatrix will be deprecated
43 :    
44 :     if (!isGeneric("pdFactor")) {
45 :     setGeneric("pdFactor", function(object) standardGeneric("pdFactor"))
46 :     }
47 :    
48 :     if (!isGeneric("pdMatrix")) {
49 :     setGeneric("pdMatrix", function(object) standardGeneric("pdMatrix"))
50 :     }
51 :    
52 :     if (!isGeneric("corFactor")) {
53 :     ## extractor for transpose inverse square root factor of corr matrix
54 :     setGeneric("corFactor", function(object, ...) standardGeneric("corFactor"))
55 :     }
56 :    
57 :     if (!isGeneric("corMatrix")) {
58 :     ## extractor for correlation matrix or the transpose inverse
59 :     ## square root matrix
60 :     setGeneric("corMatrix", function(object, ...) standardGeneric("corMatrix"))
61 :     }
62 :    
63 : bates 241 # if (!isGeneric("isInitialized")) {
64 :     # setGeneric("isInitialized",
65 :     # function(object) standardGeneric("isInitialized"),
66 :     # valueClass = "logical")
67 :     # }
68 : bates 10
69 :     if (!isGeneric("matrix<-")) {
70 :     setGeneric("matrix<-",
71 :     function(object, value) standardGeneric("matrix<-"))
72 :     }

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