The R Project SVN R-packages

Rev

Rev 4529 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4529 Rev 4549
Line 794... Line 794...
794 
setMethod("band", "TsparseMatrix",
 794 
setMethod("band", "TsparseMatrix",
795 
	  function(x, k1, k2, ...)
 795 
	  function(x, k1, k2, ...)
796 
	  as(band(.T.2.C(x), k1 = k1, k2 = k2, ...), "TsparseMatrix"))
 796 
	  as(band(.T.2.C(x), k1 = k1, k2 = k2, ...), "TsparseMatrix"))
797 
 
 797 
 
798 
 
 798 
 
- 
 
 799 
## For the "general" T ones (triangular & symmetric have special methods):
799 
setMethod("t", signature(x = "TsparseMatrix"),
 800 
setMethod("t", signature(x = "TsparseMatrix"),
800 
	  function(x) {
 801 
	  function(x) {
801 
	      r <- new(class(x))
 802 
	      r <- new(class(x))
802 
	      r@i <- x@j
 803 
	      r@i <- x@j
803 
	      r@j <- x@i
 804 
	      r@j <- x@i
804 
	      if(any("x" == slotNames(x)))
 805 
	      if(any("x" == slotNames(x)))
805 
		  r@x <- x@x
 806 
		  r@x <- x@x
806 
	      r@Dim <- rev(x@Dim)
 807 
	      r@Dim <- x@Dim[2:1]
807 
	      r@Dimnames <- rev(x@Dimnames)
 808 
	      r@Dimnames <- x@Dimnames[2:1]
808 
	      r
 809 
	      r
809 
      })
 810 
      })
810 
 
 811