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 664 - (view) (download)

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

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