SCM

SCM Repository

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

Diff of /pkg/Matrix/R/diagMatrix.R

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

revision 2493, Mon Nov 2 11:55:05 2009 UTC revision 2496, Sat Nov 14 17:24:42 2009 UTC
# Line 709  Line 709 
709          .diag.2N(e1)          .diag.2N(e1)
710      }      }
711      else { ## result not diagonal, but at least symmetric:      else { ## result not diagonal, but at least symmetric:
712            ## e.g., m == m
713          isNum <- (is.numeric(r) || is.numeric(r00))          isNum <- (is.numeric(r) || is.numeric(r00))
714          isLog <- (is.logical(r) || is.logical(r00))          isLog <- (is.logical(r) || is.logical(r00))
715            Matrix.msg("exploding <diag> o <diag> into dense matrix", .M.level = 2)
         Matrix.msg("exploding   <diag>  o  <diag>  into dense matrix")  
716          d <- e1@Dim          d <- e1@Dim
717          n <- d[1]          n <- d[1]
718          stopifnot(length(r) == n)          stopifnot(length(r) == n)

Legend:
Removed from v.2493  
changed lines
  Added in v.2496

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