SCM

SCM Repository

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

View of /pkg/R/syMatrix.R

Parent Directory Parent Directory | Revision Log Revision Log


Revision 475 - (download) (annotate)
Tue Feb 1 14:44:06 2005 UTC (15 years, 2 months ago) by maechler
File size: 862 byte(s)
Martin`s cosmetics
 ### Coercion and Methods for Symmetric Matrices

setAs("syMatrix", "geMatrix",
      function(from) .Call("syMatrix_as_geMatrix", from) )

setAs("syMatrix", "matrix",
      function(from) .Call("syMatrix_as_matrix", from) )

setMethod("%*%", signature(x = "syMatrix", y = "geMatrix"),
          function(x, y) .Call("syMatrix_geMatrix_mm", x, y) )

setMethod("%*%", signature(x = "geMatrix", y = "syMatrix"),
          function(x, y) .Call("syMatrix_geMatrix_mm_R", y, x) )

setMethod("norm", signature(x = "syMatrix", type = "character"),
          function(x, type, ...) .Call("syMatrix_norm", x, type),
          valueClass = "numeric")

setMethod("norm", signature(x = "syMatrix", type = "missing"),
          function(x, type, ...) .Call("syMatrix_norm", x, "O"),
          valueClass = "numeric")

setMethod("t", signature(x = "syMatrix"), function(x) x)

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