SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/R/ddenseMatrix.R
ViewVC logotype

Diff of /pkg/Matrix/R/ddenseMatrix.R

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

revision 2345, Wed Mar 11 18:41:28 2009 UTC revision 2346, Thu Mar 12 10:40:52 2009 UTC
# Line 144  Line 144 
144  .bandDense <- function(x, k1, k2, ...) {  .bandDense <- function(x, k1, k2, ...) {
145      k1 <- as.integer(k1[1])      k1 <- as.integer(k1[1])
146      k2 <- as.integer(k2[1])      k2 <- as.integer(k2[1])
147      dd <- dim(x); sqr <- dd[1] == dd[2]      dd <- dim(x)
148      stopifnot(-dd[1] <= k1, k1 <= k2, k2 <= dd[1])      sqr <- dd[1] == dd[2]
149        stopifnot(-dd[1] <= k1, k1 <= k2, k2 <= dd[2])
150      r <- .Call(dense_band, x, k1, k2)      r <- .Call(dense_band, x, k1, k2)
151      if (sqr &&  k1 < 0 &&  k1 == -k2  && isSymmetric(x)) ## symmetric      if (sqr &&  k1 < 0 &&  k1 == -k2  && isSymmetric(x)) ## symmetric
152          forceSymmetric(r)          forceSymmetric(r)

Legend:
Removed from v.2345  
changed lines
  Added in v.2346

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