SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/R/ngTMatrix.R
ViewVC logotype

Diff of /pkg/Matrix/R/ngTMatrix.R

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

revision 2944, Thu Dec 19 13:50:47 2013 UTC revision 2945, Thu Dec 19 13:52:00 2013 UTC
# Line 57  Line 57 
57            Dim = from@Dim, Dimnames= from@Dimnames))            Dim = from@Dim, Dimnames= from@Dimnames))
58  setAs("ngTMatrix", "lMatrix", function(from) as(from, "lgTMatrix"))  setAs("ngTMatrix", "lMatrix", function(from) as(from, "lgTMatrix"))
59    
60    setAs("ngTMatrix", "triangularMatrix",
61          function(from) check.gT2tT(from, toClass = "ntTMatrix", do.n=TRUE))
62  setAs("ngTMatrix", "ntTMatrix",  setAs("ngTMatrix", "ntTMatrix",
63        function(from) check.gT2tT(from, cl = "ngTMatrix", toClass = "ntTMatrix",        function(from) check.gT2tT(from, toClass = "ntTMatrix", do.n=TRUE))
64                                   do.n = TRUE))  setAs("ngTMatrix", "symmetricMatrix",
65  setAs("ngTMatrix", "triangularMatrix", function(from) as(from, "ntTMatrix"))        function(from) check.gT2sT(from, toClass = "nsTMatrix", do.n=TRUE))
66    ## We favor coercion to super-classes, here, "symmetricMatrix"
67    ## setAs("ngTMatrix", "nsTMatrix",
68    ##       function(from) check.gT2sT(from, toClass = "nsTMatrix", do.n=TRUE))
69    
70    
71  if(FALSE) ## unneeded: use t.<TsparseMatrix>  if(FALSE) ## unneeded: use t.<TsparseMatrix>

Legend:
Removed from v.2944  
changed lines
  Added in v.2945

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