SCM

SCM Repository

[matrix] Diff of /pkg/R/Matrix.R
ViewVC logotype

Diff of /pkg/R/Matrix.R

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

revision 946, Wed Sep 28 08:56:42 2005 UTC revision 949, Wed Sep 28 09:17:08 2005 UTC
# Line 98  Line 98 
98            stop(gettextf('not-yet-implemented method for <%s> %%*%% <%s>',            stop(gettextf('not-yet-implemented method for <%s> %%*%% <%s>',
99                          class(x), class(y))))                          class(x), class(y))))
100    
 ## Move this to ./Auxiliaries.R  
 .bail.out.1 <- function(fun, cl) {  
     stop(gettextf('not-yet-implemented method for %s(<%s>)', fun, cl),  
          call. = FALSE)  
 }  
 .bail.out.2 <- function(fun, cl1, cl2) {  
     stop(gettextf('not-yet-implemented method for %s(<%s>, <%s>)',  
                   fun, cl1, cl2), call. = FALSE)  
 }  
   
101  setMethod("crossprod", signature(x = "Matrix", y = "ANY"),  setMethod("crossprod", signature(x = "Matrix", y = "ANY"),
102            function (x, y = NULL) .bail.out.2(.Generic, class(x), class(y)))            function (x, y = NULL) .bail.out.2(.Generic, class(x), class(y)))
103    

Legend:
Removed from v.946  
changed lines
  Added in v.949

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