The R Project SVN R-packages

Rev

Rev 1199 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1199 Rev 1200
Line 7... Line 7...
7 
	xjP = GET_SLOT(x, Matrix_jSym),
 7 
	xjP = GET_SLOT(x, Matrix_jSym),
8 
	xxP = GET_SLOT(x, Matrix_xSym);
 8 
	xxP = GET_SLOT(x, Matrix_xSym);
9 
    int *dims = INTEGER(GET_SLOT(x, Matrix_DimSym));
 9 
    int *dims = INTEGER(GET_SLOT(x, Matrix_DimSym));
10 
 
 10 
 
11 
    if (dims[0] != dims[1])
 11 
    if (dims[0] != dims[1])
12 
	return mkString(_("dsTMatrix must have ncol == nrow"));
 12 
	return mkString(_("dsTMatrix must be square"));
13 
    if (length(xiP) != length(xjP) || length(xjP) != length(xxP))
 13 
    if (length(xiP) != length(xjP) || length(xjP) != length(xxP))
14 
	return mkString(_("slots i, j and x must have the same length"));
 14 
	return mkString(_("slots i, j and x must have the same length"));
15 
    return ScalarLogical(1);
 15 
    return ScalarLogical(1);
16 
}
 16 
}
17 
 
 17