The R Project SVN R-packages

Rev

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

Rev 3787 Rev 5028
Line 8... Line 8...
8 
setAs("matrix", "dppMatrix", to_dpp)
 8 
setAs("matrix", "dppMatrix", to_dpp)
9 
 
 9 
 
10 
setMethod("chol", signature(x = "dppMatrix"),
 10 
setMethod("chol", signature(x = "dppMatrix"),
11 
	  function(x, pivot, LINPACK) .Call(dppMatrix_chol, x))
 11 
	  function(x, pivot, LINPACK) .Call(dppMatrix_chol, x))
12 
 
 12 
 
13 
setMethod("rcond", signature(x = "dppMatrix", type = "character"),
 13 
setMethod("rcond", signature(x = "dppMatrix", norm = "character"),
14 
          function(x, type, ...)
 14 
          function(x, norm, ...)
15 
          .Call(dppMatrix_rcond, x, type),
 15 
          .Call(dppMatrix_rcond, x, norm),
16 
          valueClass = "numeric")
 16 
          valueClass = "numeric")
17 
 
 17 
 
18 
setMethod("rcond", signature(x = "dppMatrix", type = "missing"),
 18 
setMethod("rcond", signature(x = "dppMatrix", norm = "missing"),
19 
          function(x, type, ...)
 19 
          function(x, norm, ...)
20 
          .Call(dppMatrix_rcond, x, "O"),
 20 
          .Call(dppMatrix_rcond, x, "O"),
21 
          valueClass = "numeric")
 21 
          valueClass = "numeric")
22 
 
 22 
 
23 
setMethod("solve", signature(a = "dppMatrix", b = "missing"),
 23 
setMethod("solve", signature(a = "dppMatrix", b = "missing"),
24 
          function(a, b, ...)
 24 
          function(a, b, ...)