SCM

SCM Repository

[matrix] Diff of /pkg/src/dgeMatrix.c
ViewVC logotype

Diff of /pkg/src/dgeMatrix.c

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

revision 603, Fri Mar 4 12:53:01 2005 UTC revision 604, Fri Mar 4 17:27:51 2005 UTC
# Line 15  Line 15 
15          return mkString(_("Negative value(s) in Dim"));          return mkString(_("Negative value(s) in Dim"));
16      if (length(x) != m * n)      if (length(x) != m * n)
17          return mkString(_("length of x slot != prod(Dim)"));          return mkString(_("length of x slot != prod(Dim)"));
18        if (!isReal(x))
19            return mkString(_("x slot must be numeric \"double\""));
20      if (length(fact) > 0 && getAttrib(fact, R_NamesSymbol) == R_NilValue)      if (length(fact) > 0 && getAttrib(fact, R_NamesSymbol) == R_NilValue)
21          return mkString(_("factors slot must be named list"));          return mkString(_("factors slot must be named list"));
22      if (length(rc) > 0 && getAttrib(rc, R_NamesSymbol) == R_NilValue)      if (length(rc) > 0 && getAttrib(rc, R_NamesSymbol) == R_NilValue)

Legend:
Removed from v.603  
changed lines
  Added in v.604

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