The R Project SVN R-packages

Rev

Rev 1473 | Rev 1998 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1473 Rev 1527
Line 4... Line 4...
4 
 
 4 
 
5 
setAs("lsCMatrix", "dsCMatrix",
 5 
setAs("lsCMatrix", "dsCMatrix",
6 
      function(from) new("dsCMatrix", i = from@i, p = from@p,
 6 
      function(from) new("dsCMatrix", i = from@i, p = from@p,
7 
                         x = rep(1, length(from@i)), uplo = from@uplo,
 7 
                         x = rep(1, length(from@i)), uplo = from@uplo,
8 
                         Dim = from@Dim, Dimnames = from@Dimnames))
 8 
                         Dim = from@Dim, Dimnames = from@Dimnames))
- 
 
 9 
 
- 
 
 10 
setMethod("image", "lsCMatrix",
- 
 
 11 
          function(x, ...) {
- 
 
 12 
              x <- as(as(x, "dsCMatrix"), "dgTMatrix")
- 
 
 13 
              callGeneric()
- 
 
 14 
          })
- 
 
 15 
 
- 
 
 16 
setMethod("chol", signature(x = "lsCMatrix", pivot = "missing"),
- 
 
 17 
          function(x, pivot, LINPACK) .Call("lsCMatrix_chol", x, TRUE))
- 
 
 18 
 
- 
 
 19 
setMethod("chol", signature(x = "lsCMatrix", pivot = "logical"),
- 
 
 20 
          function(x, pivot, LINPACK) .Call("lsCMatrix_chol", x, pivot))
- 
 
 21 
 
- 
 
 22 
setMethod("t", signature(x = "lsCMatrix"),
- 
 
 23 
          function(x) .Call("lsCMatrix_trans", x),
- 
 
 24 
          valueClass = "lsCMatrix")