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 1389, Fri Aug 18 13:53:33 2006 UTC revision 1390, Fri Aug 18 15:41:36 2006 UTC
# Line 166  Line 166 
166      }      }
167      else if(is(x, "triangularMatrix")) { # check for "U" diag      else if(is(x, "triangularMatrix")) { # check for "U" diag
168          if(x@diag == "U") {          if(x@diag == "U") {
169              i <- seq(length = dim(x)[1])              i <- seq(length = dim(x)[1]) - 1:1
170              rbind(non0.i(x), cbind(i,i))              rbind(non0.i(x), cbind(i,i))
171          } else non0.i(x)          } else non0.i(x)
172      }      }

Legend:
Removed from v.1389  
changed lines
  Added in v.1390

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