SCM

SCM Repository

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

Diff of /pkg/R/Auxiliaries.R

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

revision 1083, Thu Dec 8 22:27:00 2005 UTC revision 1084, Fri Dec 9 15:41:00 2005 UTC
# Line 40  Line 40 
40      h.a <- !identical(nullDN, dna <- dimnames(a))      h.a <- !identical(nullDN, dna <- dimnames(a))
41      h.b <- !identical(nullDN, dnb <- dimnames(b))      h.b <- !identical(nullDN, dnb <- dimnames(b))
42      if(h.a || h.b) {      if(h.a || h.b) {
43          if (!h.b) h.a          if (!h.b) dna
44          else if(!h.a) h.b          else if(!h.a) dnb
45          else { ## both have non-trivial dimnames          else { ## both have non-trivial dimnames
46              r <- dna # "default" result              r <- dna # "default" result
47              for(j in 1:2) {              for(j in 1:2) {

Legend:
Removed from v.1083  
changed lines
  Added in v.1084

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