SCM

SCM Repository

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

Annotation of /pkg/bigalgebra/R/methods.R

Parent Directory Parent Directory | Revision Log Revision Log


Revision 421 - (view) (download)

1 : blewis 421 setMethod("%*%",signature(x="big.matrix", y="big.matrix"),
2 :     function(x,y) dgemm(A=x, B=y),
3 :     valueClass="big.matrix"
4 :     )
5 :    
6 :     setMethod("%*%",signature(x="matrix", y="big.matrix"),
7 :     function(x,y)
8 :     {
9 :     if(dim(x)[2] != dim(y)[1]) stop("non-conformant matrices")
10 :     R = options("bigalgebra.mixed_airthmetic_returns_R_matrix")[[1]]
11 :     if(!is.null(R) && R) return(dgemm(A=x, B=y, C=0))
12 :     dgemm(A=x, B=y)
13 :     },
14 :     valueClass="matrix"
15 :     )
16 :    
17 :     setMethod("%*%",signature(x="big.matrix", y="matrix"),
18 :     function(x,y)
19 :     {
20 :     if(dim(x)[2] != dim(y)[1]) stop("non-conformant matrices")
21 :     R = options("bigalgebra.mixed_airthmetic_returns_R_matrix")[[1]]
22 :     if(!is.null(R) && R) return(dgemm(A=x, B=y, C=0))
23 :     dgemm(A=x, B=y)
24 :     },
25 :     valueClass="matrix"
26 :     )

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