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 2056, Thu Aug 16 16:42:10 2007 UTC revision 2062, Sat Sep 1 21:06:52 2007 UTC
# Line 503  Line 503 
503            .M.repl.i.2col)            .M.repl.i.2col)
504    
505    
506  setReplaceMethod("[", signature(x = "Matrix", i = "ANY", j = "ANY",  setReplaceMethod("[", signature(x = "Matrix", i = "missing", j = "ANY",
507                                  value = "Matrix"),                                  value = "Matrix"),
508                   function (x, i, j, value) {                   function (x, i, j, ..., value)
509  ### *TEMPORARY* diagnostic output:                   callGeneric(x=x, j=j, value = as.vector(value)))
 ##                  cat("<Matrix1>[i,j] <- <Matrix1>:\n<Matrix1> = x :")  
 ##                  str(x)  
 ##                  cat("<Matrix2> = value :")  
 ##                  str(value)  
 ##                  cat("i :"); if(!missing(i)) str(i) else cat("<missing>\n")  
 ##                  cat("j :"); if(!missing(j)) str(j) else cat("<missing>\n")  
510    
511                       callGeneric(x=x, i=i, j=j, value = as.vector(value))  setReplaceMethod("[", signature(x = "Matrix", i = "ANY", j = "missing",
512                   })                                  value = "Matrix"),
513                     function (x, i, j, ..., value)
514                     callGeneric(x=x, i=i, value = as.vector(value)))
515    
516  setReplaceMethod("[", signature(x = "Matrix", i = "ANY", j = "ANY",  setReplaceMethod("[", signature(x = "Matrix", i = "ANY", j = "ANY",
517                                  value = "Matrix"),                                  value = "Matrix"),
518                   function (x, i, j, value)                   function (x, i, j, ..., value)
519                   callGeneric(x=x, i=i, j=j, value = as.vector(value)))                   callGeneric(x=x, i=i, j=j, value = as.vector(value)))
520    
521    setReplaceMethod("[", signature(x = "Matrix", i = "missing", j = "ANY",
522                                    value = "matrix"),
523                     function (x, i, j, ..., value)
524                     callGeneric(x=x, j=j, value = c(value)))
525    
526    setReplaceMethod("[", signature(x = "Matrix", i = "ANY", j = "missing",
527                                    value = "matrix"),
528                     function (x, i, j, ..., value)
529                     callGeneric(x=x, i=i, value = c(value)))
530    
531  setReplaceMethod("[", signature(x = "Matrix", i = "ANY", j = "ANY",  setReplaceMethod("[", signature(x = "Matrix", i = "ANY", j = "ANY",
532                                  value = "matrix"),                                  value = "matrix"),
533                   function (x, i, j, value)                   function (x, i, j, value)

Legend:
Removed from v.2056  
changed lines
  Added in v.2062

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