SCM

SCM Repository

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

Diff of /pkg/R/AllGeneric.R

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

revision 538, Thu Feb 10 13:50:27 2005 UTC revision 561, Fri Feb 18 19:24:43 2005 UTC
# Line 52  Line 52 
52    
53  ## The generics pdFactor, pdMatrix, corFactor and corMatrix will be deprecated  ## The generics pdFactor, pdMatrix, corFactor and corMatrix will be deprecated
54    
55  if (!isGeneric("pdFactor"))  # if (!isGeneric("pdFactor"))
56      setGeneric("pdFactor", function(object) standardGeneric("pdFactor"))  #     setGeneric("pdFactor", function(object) standardGeneric("pdFactor"))
57    
58  if (!isGeneric("pdMatrix"))  # if (!isGeneric("pdMatrix"))
59      setGeneric("pdMatrix", function(object) standardGeneric("pdMatrix"))  #     setGeneric("pdMatrix", function(object) standardGeneric("pdMatrix"))
60    
61  if (!isGeneric("corFactor"))  # if (!isGeneric("corFactor"))
62      ## extractor for transpose inverse square root factor of corr matrix  #     ## extractor for transpose inverse square root factor of corr matrix
63      setGeneric("corFactor", function(object, ...) standardGeneric("corFactor"))  #     setGeneric("corFactor", function(object, ...) standardGeneric("corFactor"))
64    
65  if (!isGeneric("corMatrix"))  # if (!isGeneric("corMatrix"))
66      ## extractor for correlation matrix or the transpose inverse  #     ## extractor for correlation matrix or the transpose inverse
67      ## square root matrix  #     ## square root matrix
68      setGeneric("corMatrix", function(object, ...) standardGeneric("corMatrix"))  #     setGeneric("corMatrix", function(object, ...) standardGeneric("corMatrix"))
69    
70  # if (!isGeneric("isInitialized"))  # if (!isGeneric("isInitialized"))
71  #     setGeneric("isInitialized",  #     setGeneric("isInitialized",
# Line 73  Line 73 
73  #                valueClass = "logical")  #                valueClass = "logical")
74  #  #
75    
76  if (!isGeneric("matrix<-"))  # if (!isGeneric("matrix<-"))
77      setGeneric("matrix<-", function(object, value) standardGeneric("matrix<-"))  #     setGeneric("matrix<-", function(object, value) standardGeneric("matrix<-"))
78    
79  if (!isGeneric("expm"))  if (!isGeneric("expm"))
80      setGeneric("expm", function(x) standardGeneric("expm"))      setGeneric("expm", function(x) standardGeneric("expm"))

Legend:
Removed from v.538  
changed lines
  Added in v.561

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