SCM

SCM Repository

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

Diff of /pkg/R/dtrMatrix.R

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

revision 578, Sat Feb 26 18:25:09 2005 UTC revision 579, Sun Feb 27 00:04:16 2005 UTC
# Line 69  Line 69 
69    
70  setMethod("t", signature(x = "dtrMatrix"),  setMethod("t", signature(x = "dtrMatrix"),
71            function(x) {            function(x) {
72                val <- new("dtrMatrix", Dim = x@Dim, x = t(as(x, "matrix"))@x)                val <- new("dtrMatrix",
73                             Dim = x@Dim, Dimnames = x@Dimnames[2:1],
74                             x = as.vector(t(as(x, "matrix"))))
75                if (x@uplo == "U") val@uplo <- "L"                if (x@uplo == "U") val@uplo <- "L"
76                if (x@diag == "U") val@diag <- "U"                if (x@diag == "U") val@diag <- "U"
77                val                val

Legend:
Removed from v.578  
changed lines
  Added in v.579

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