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 10 - (download) (annotate)
Mon Mar 22 20:20:05 2004 UTC (15 years, 5 months ago) by bates
File size: 2111 byte(s)
Initial import
# Define those generics that we need, if they don't exist

if (!isGeneric("expand")) {
    setGeneric("expand", function(x, ...) standardGeneric("expand"))
}
    
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("EMsteps<-")) {
    setGeneric("EMsteps<-", function(x, value) standardGeneric("EMsteps<-"))
}

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<-"))
}

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