SCM

SCM Repository

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

Diff of /pkg/R/dsTMatrix.R

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

revision 2048, Tue Aug 14 15:09:10 2007 UTC revision 2049, Tue Aug 14 22:22:24 2007 UTC
# Line 32  Line 32 
32                uplo = if (x@uplo == "U") "L" else "U"),                uplo = if (x@uplo == "U") "L" else "U"),
33            valueClass = "dsTMatrix")            valueClass = "dsTMatrix")
34    
35  setMethod("writeHB", signature(obj = "dsTMatrix"),  ## setMethod("writeHB", signature(obj = "dsTMatrix"),
36            function(obj, file, ...) callGeneric(as(obj, "CsparseMatrix"), file, ...))  ##           function(obj, file, ...) callGeneric(as(obj, "CsparseMatrix"), file, ...))
   
 setMethod("writeMM", signature(obj = "dsTMatrix"),  
           function(obj, file, ...)  
           .Call(Matrix_writeMatrixMarket,  
                 if (obj@uplo == "U") t(obj) else obj,  
                 as.character(file), "DST"))  

Legend:
Removed from v.2048  
changed lines
  Added in v.2049

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge