The R Project SVN R

Rev

Rev 33359 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 33359 Rev 33598
Line 81... Line 81...
81 
	error(_("non-numeric matrix extent"));
 81 
	error(_("non-numeric matrix extent"));
82 
 
 82 
 
83 
    lendat = length(vals);
 83 
    lendat = length(vals);
84 
    nr = asInteger(snr);
 84 
    nr = asInteger(snr);
85 
    if (nr == NA_INTEGER) /* This is < 0 */
 85 
    if (nr == NA_INTEGER) /* This is < 0 */
86 
	error(_("matrix: invalid 'nrow value' (too large or NA)"));
 86 
	error(_("matrix: invalid 'nrow' value (too large or NA)"));
87 
    if (nr < 0)
 87 
    if (nr < 0)
88 
	error(_("matrix: invalid 'nrow' value (< 0)"));
 88 
	error(_("matrix: invalid 'nrow' value (< 0)"));
89 
    nc = asInteger(snc);
 89 
    nc = asInteger(snc);
90 
    if (nc < 0)
 90 
    if (nc < 0)
91 
	error(_("matrix: invalid 'ncol' value (< 0)"));
 91 
	error(_("matrix: invalid 'ncol' value (< 0)"));