The R Project SVN R-packages

Rev

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

Rev 4963 Rev 5013
Line 54... Line 54...
54 
          function(x, ...) {
 54 
          function(x, ...) {
55 
              x <- as(as(x, "dsCMatrix"), "dgTMatrix")
 55 
              x <- as(as(x, "dsCMatrix"), "dgTMatrix")
56 
              callGeneric()
 56 
              callGeneric()
57 
          })
 57 
          })
58 
 
 58 
 
59 
setMethod("chol", signature(x = "lsCMatrix", pivot = "missing"),
 59 
setMethod("chol", signature(x = "lsCMatrix"),
60 
	  function(x, pivot, ...) chol(as(x, "dgCMatrix"), pivot = FALSE))
 60 
	  function(x, pivot=FALSE, ...)
61 
##          .Call(lsCMatrix_chol, x, FALSE))
 - 
 
62 
 
 - 
 
63 
setMethod("chol", signature(x = "lsCMatrix", pivot = "logical"),
 - 
 
64 
	  function(x, pivot, ...) chol(as(x, "dgCMatrix"), pivot = pivot))
 61 
	  chol(as(x, "dgCMatrix"), pivot=pivot, ...))
65 
##	    .Call(lsCMatrix_chol, x, pivot))
 - 
 
66 
 
 62 
 
67 
## Use more general method from CsparseMatrix class
 63 
## Use more general method from CsparseMatrix class
68 
## setMethod("t", signature(x = "lsCMatrix"),
 64 
## setMethod("t", signature(x = "lsCMatrix"),
69 
##           function(x)
 65 
##           function(x)
70 
##           .Call(lsCMatrix_trans, x),
 66 
##           .Call(lsCMatrix_trans, x),