SCM

SCM Repository

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

View of /pkg/R/AllGeneric.R

Parent Directory Parent Directory | Revision Log Revision Log


Revision 664 - (download) (annotate)
Thu Mar 24 13:00:09 2005 UTC (14 years, 2 months ago) by maechler
File size: 2431 byte(s)
make virtual classes "VIRTUAL"
#### Define those generics that we need, if they don't exist


if (!isGeneric("expand"))
    setGeneric("expand", function(x, ...) standardGeneric("expand"))

if (!isGeneric("tcrossprod"))
    setGeneric("tcrossprod", function(x) standardGeneric("tcrossprod"))

if (!isGeneric("isSymmetric"))
    setGeneric("isSymmetric", function(object, ...)
               standardGeneric("isSymmetric"))

if (!isGeneric("isNested"))
    setGeneric("isNested", function(object, ...) standardGeneric("isNested"))

if (!isGeneric("facmul"))
    setGeneric("facmul",
               function(x, factor, y, transpose, left, ...)
               standardGeneric("facmul"))

if (!isGeneric("lu"))
    setGeneric("lu", function(x, ...) standardGeneric("lu"))

if (!isGeneric("norm"))
    setGeneric("norm", function(x, type, ...) standardGeneric("norm"))

if (!isGeneric("rcond"))
    setGeneric("rcond", function(x, type, ...) standardGeneric("rcond"))

if (!isGeneric("Schur"))
    setGeneric("Schur", function(x, vectors, ...) standardGeneric("Schur"))

if (!isGeneric("unpack"))
    setGeneric("unpack", function(x, ...) standardGeneric("unpack"))

##- if (!isGeneric("%p%"))
##-     setGeneric("%p%", function(a, b) standardGeneric("%p%"))
##-
##- if (!isGeneric("coef<-"))
##-     setGeneric("coef<-", function(object, ..., value)
##-                standardGeneric("coef<-"))


## The generics pdFactor, pdMatrix, corFactor and corMatrix will be deprecated

# if (!isGeneric("pdFactor"))
#     setGeneric("pdFactor", function(object) standardGeneric("pdFactor"))

# if (!isGeneric("pdMatrix"))
#     setGeneric("pdMatrix", function(object) standardGeneric("pdMatrix"))

# if (!isGeneric("corFactor"))
#     ## extractor for transpose inverse square root factor of corr matrix
#     setGeneric("corFactor", function(object, ...) standardGeneric("corFactor"))

# if (!isGeneric("corMatrix"))
#     ## extractor for correlation matrix or the transpose inverse
#     ## square root matrix
#     setGeneric("corMatrix", function(object, ...) standardGeneric("corMatrix"))

# if (!isGeneric("isInitialized"))
#     setGeneric("isInitialized",
#                function(object) standardGeneric("isInitialized"),
#                valueClass = "logical")
#

# if (!isGeneric("matrix<-"))
#     setGeneric("matrix<-", function(object, value) standardGeneric("matrix<-"))

if (!isGeneric("expm"))
    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