SCM

SCM Repository

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

Diff of /pkg/R/sparseMatrix.R

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

revision 2184, Sat Apr 26 20:32:39 2008 UTC revision 2185, Sat Apr 26 20:33:16 2008 UTC
# Line 527  Line 527 
527                        inax <- is.na((x <- .diagU2N(x, cld))@x)                        inax <- is.na((x <- .diagU2N(x, cld))@x)
528                    r <- as(x, "lMatrix") # will be "lsparseMatrix" - *has* x slot                    r <- as(x, "lMatrix") # will be "lsparseMatrix" - *has* x slot
529                    r@x <- inax                    r@x <- inax
530                    as(r, "nMatrix") # a 'pattern matrix                    if(!extends(cld, "CsparseMatrix"))
531                          r <- as(r, "CsparseMatrix")
532                      as(.Call(Csparse_drop, r, 0), "nMatrix") # a 'pattern matrix
533                }                }
534                else is.na_nsp(x)                else is.na_nsp(x)
535            })            })

Legend:
Removed from v.2184  
changed lines
  Added in v.2185

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