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

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