SCM

SCM Repository

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

Diff of /pkg/Matrix/src/dgeMatrix.c

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

revision 2989, Mon Apr 28 20:32:22 2014 UTC revision 2990, Thu May 8 10:31:52 2014 UTC
# Line 157  Line 157 
157      double one = 1.0, zero = 0.0;      double one = 1.0, zero = 0.0;
158      Rboolean y_has_dimNames;      Rboolean y_has_dimNames;
159    
160      if (isInteger(y)) {      if (!isReal(y)) {
161            if(isInteger(y) || isLogical(y)) {
162          y = PROTECT(coerceVector(y, REALSXP));          y = PROTECT(coerceVector(y, REALSXP));
163          nprot++;          nprot++;
164      }      }
165      if (!isReal(y))          else
166          error(_("Argument y must be numeric or integer"));              error(_("Argument y must be numeric, integer or logical"));
167        }
168      if(isMatrix(y)) {      if(isMatrix(y)) {
169          yDims = INTEGER(getAttrib(y, R_DimSymbol));          yDims = INTEGER(getAttrib(y, R_DimSymbol));
170          yDnms = getAttrib(y, R_DimNamesSymbol);          yDnms = getAttrib(y, R_DimNamesSymbol);

Legend:
Removed from v.2989  
changed lines
  Added in v.2990

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