SCM

SCM Repository

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

Diff of /pkg/R/dsparseMatrix.R

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

revision 1279, Tue May 23 08:01:11 2006 UTC revision 1280, Tue May 23 08:01:44 2006 UTC
# Line 123  Line 123 
123                    ## beware of (packed) triangular, symmetric, ...                    ## beware of (packed) triangular, symmetric, ...
124                    hasDN <- !all(lapply(c(dnx <- dimnames(x),                    hasDN <- !all(lapply(c(dnx <- dimnames(x),
125                                           dny <- dimnames(y)), is.null))                                           dny <- dimnames(y)), is.null))
126                    ans <- .Call("Csparse_horzcat",                    ans <- .Call(Csparse_horzcat,
127                                 as(x, "dgCMatrix"), as(y, "dgCMatrix"))                                 as(x, "dgCMatrix"), as(y, "dgCMatrix"))
128                    if(hasDN) {                    if(hasDN) {
129                        ## R and S+ are different in which names they take                        ## R and S+ are different in which names they take
# Line 144  Line 144 
144                    ## beware of (packed) triangular, symmetric, ...                    ## beware of (packed) triangular, symmetric, ...
145                    hasDN <- !all(lapply(c(dnx <- dimnames(x),                    hasDN <- !all(lapply(c(dnx <- dimnames(x),
146                                           dny <- dimnames(y)), is.null))                                           dny <- dimnames(y)), is.null))
147                    ans <- .Call("Csparse_vertcat",                    ans <- .Call(Csparse_vertcat,
148                                 as(x, "dgCMatrix"), as(y, "dgCMatrix"))                                 as(x, "dgCMatrix"), as(y, "dgCMatrix"))
149                    if(hasDN) {                    if(hasDN) {
150                        ## R and S+ are different in which names they take                        ## R and S+ are different in which names they take

Legend:
Removed from v.1279  
changed lines
  Added in v.1280

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