SCM

SCM Repository

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

Diff of /pkg/R/Ops.R

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

revision 1723, Sat Jan 13 16:29:29 2007 UTC revision 1724, Sat Jan 13 21:06:51 2007 UTC
# Line 118  Line 118 
118                                for(n in intersect(c("i","j","p"), slotNames(r)))                                for(n in intersect(c("i","j","p"), slotNames(r)))
119                                    slot(r, n) <- slot(e1, n)                                    slot(r, n) <- slot(e1, n)
120                            }                            }
121                            ## else: all FALSE: keep empty 'r' matrix                            else { ## all FALSE: keep empty 'r' matrix
122                                  ## but may need a valid 'pointer' slot:
123                                  if(extends(lClass, "CsparseMatrix"))
124                                      r@p <- rep.int(0:0, 1+ncol(r))
125                                  else if(extends(lClass, "RsparseMatrix"))
126                                      r@p <- rep.int(0:0, 1+nrow(r))
127                              }
128                        } else { # some TRUE, FALSE, NA : go via unique 'Tsparse'                        } else { # some TRUE, FALSE, NA : go via unique 'Tsparse'
129                            M <- asTuniq(e1)                            M <- asTuniq(e1)
130                            nCl <- class2(class(M), 'l') # logical Tsparse                            nCl <- class2(class(M), 'l') # logical Tsparse

Legend:
Removed from v.1723  
changed lines
  Added in v.1724

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