SCM

SCM Repository

[bigmemory] Diff of /pkg/bigalgebra/R/methods.R
ViewVC logotype

Diff of /pkg/bigalgebra/R/methods.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 422, Wed Dec 26 23:03:04 2012 UTC revision 423, Wed Dec 26 23:14:37 2012 UTC
# Line 10  Line 10 
10    function(x,y)    function(x,y)
11    {    {
12      if(dim(x)[2] != dim(y)[1]) stop("non-conformant matrices")      if(dim(x)[2] != dim(y)[1]) stop("non-conformant matrices")
13      R = options("bigalgebra.mixed_arithmetic_returns_R_matrix")[[1]]      R = options("bigalgebra.mixed_airthmetic_returns_R_matrix")[[1]]
14      if(!is.null(R) && R) return(dgemm(A=x, B=y, C=0.0))      if(!is.null(R) && R) return(dgemm(A=x, B=y, C=0))
15      dgemm(A=x, B=y)      dgemm(A=x, B=y)
16    },    },
17    valueClass="matrix"    valueClass="matrix"
# Line 21  Line 21 
21    function(x,y)    function(x,y)
22    {    {
23      if(dim(x)[2] != dim(y)[1]) stop("non-conformant matrices")      if(dim(x)[2] != dim(y)[1]) stop("non-conformant matrices")
24      R = options("bigalgebra.mixed_arithmetic_returns_R_matrix")[[1]]      R = options("bigalgebra.mixed_airthmetic_returns_R_matrix")[[1]]
25      if(!is.null(R) && R) return(dgemm(A=x, B=y, C=0.0))      if(!is.null(R) && R) return(dgemm(A=x, B=y, C=0))
26      dgemm(A=x, B=y)      dgemm(A=x, B=y)
27    },    },
28    valueClass="matrix"    valueClass="matrix"

Legend:
Removed from v.422  
changed lines
  Added in v.423

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge