SCM

SCM Repository

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

Diff of /pkg/R/Rsparse.R

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

revision 2113, Mon Feb 18 08:27:41 2008 UTC revision 2175, Wed Apr 23 11:23:50 2008 UTC
# Line 99  Line 99 
99  setAs("RsparseMatrix", "nMatrix",  setAs("RsparseMatrix", "nMatrix",
100        function(from) as(.R.2.C(from), "nMatrix"))        function(from) as(.R.2.C(from), "nMatrix"))
101    
102    setAs("RsparseMatrix", "generalMatrix",
103          function(from) as(.R.2.C(from), "generalMatrix"))
104    
105    
106  ## for printing etc:  ## for printing etc:
107  setAs("RsparseMatrix", "dgeMatrix",  setAs("RsparseMatrix", "dgeMatrix",
# Line 132  Line 135 
135      if(has.x)      if(has.x)
136          r@x <- m@x          r@x <- m@x
137      if(sh != "g") {      if(sh != "g") {
138          r@uplo <- m@uplo          r@uplo <- if(m@uplo != "U") "U" else "L"
139          if(sh == "t")          if(sh == "t")
140              r@diag <- m@diag              r@diag <- m@diag
141      }      }

Legend:
Removed from v.2113  
changed lines
  Added in v.2175

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