The R Project SVN R-packages

Rev

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

Rev 1302 Rev 1321
Line 25... Line 25...
25 
 
 25 
 
26 
setMethod("%*%", signature(x = "dspMatrix", y = "matrix"),
 26 
setMethod("%*%", signature(x = "dspMatrix", y = "matrix"),
27 
          function(x, y) .Call("dspMatrix_matrix_mm", x, y, FALSE),
 27 
          function(x, y) .Call("dspMatrix_matrix_mm", x, y, FALSE),
28 
          valueClass = "dgeMatrix")
 28 
          valueClass = "dgeMatrix")
29 
 
 29 
 
30 
setMethod("%*%", signature(x = "dspMatrix", y = "numeric"),
 30 
##setMethod("%*%", signature(x = "dspMatrix", y = "numeric"),
31 
          function(x, y) .Call("dspMatrix_matrix_mm", x, as.matrix(y), FALSE),
 31 
##          function(x, y) .Call("dspMatrix_matrix_mm", x, as.matrix(y), FALSE),
32 
          valueClass = "dgeMatrix")
 32 
##          valueClass = "dgeMatrix")
33 
 
 33 
 
34 
setMethod("%*%", signature(x = "dspMatrix", y = "integer"),
 34 
setMethod("%*%", signature(x = "dspMatrix", y = "integer"),
35 
          function(x, y) {
 35 
          function(x, y) {
36 
              storage.mode(y) <- "double"
 36 
              storage.mode(y) <- "double"
37 
              .Call("dspMatrix_matrix_mm", x, as.matrix(y), FALSE)
 37 
              .Call("dspMatrix_matrix_mm", x, as.matrix(y), FALSE)
Line 49... Line 49...
49 
setMethod("solve", signature(a = "dspMatrix", b = "dgeMatrix"),
 49 
setMethod("solve", signature(a = "dspMatrix", b = "dgeMatrix"),
50 
	  function(a, b, ...)
 50 
	  function(a, b, ...)
51 
	  .Call("dspMatrix_matrix_solve", a, as(b,"matrix"), TRUE),
 51 
	  .Call("dspMatrix_matrix_solve", a, as(b,"matrix"), TRUE),
52 
	  valueClass = "dgeMatrix")
 52 
	  valueClass = "dgeMatrix")
53 
 
 53 
 
54 
setMethod("solve", signature(a = "dspMatrix", b = "numeric"),
 54 
##setMethod("solve", signature(a = "dspMatrix", b = "numeric"),
55 
	  function(a, b, ...)
 55 
##	  function(a, b, ...)
56 
	  .Call("dspMatrix_matrix_solve", a, as.matrix(b), FALSE),
 56 
##	  .Call("dspMatrix_matrix_solve", a, as.matrix(b), FALSE),
57 
	  valueClass = "dgeMatrix")
 57 
##	  valueClass = "dgeMatrix")
58 
 
 58 
 
59 
setMethod("solve", signature(a = "dspMatrix", b = "integer"),
 59 
setMethod("solve", signature(a = "dspMatrix", b = "integer"),
60 
	  function(a, b, ...) {
 60 
	  function(a, b, ...) {
61 
	      storage.mode(b) <- "double"
 61 
	      storage.mode(b) <- "double"
62 
	      .Call("dspMatrix_matrix_solve", a, as.matrix(b), FALSE)
 62 
	      .Call("dspMatrix_matrix_solve", a, as.matrix(b), FALSE)