Esempio n. 1
0
SEXP dgeMatrix_validate(SEXP obj)
{
    SEXP val,
	fact = GET_SLOT(obj, Matrix_factorSym);

    if (isString(val = dense_nonpacked_validate(obj)))
	return(val);

    if (length(fact) > 0 && getAttrib(fact, R_NamesSymbol) == R_NilValue)
	return mkString(_("factors slot must be named list"));
    return ScalarLogical(1);
}
Esempio n. 2
0
SEXP dtrMatrix_validate(SEXP obj)
{
    /* since "dtr" inherits from "triangular", and "dMatrix", only need this:*/
    return dense_nonpacked_validate(obj);
}
Esempio n. 3
0
SEXP dsyMatrix_validate(SEXP obj)
{
    /* since "dsy" inherits from "symmetric", and "dMatrix", only need this:*/
    return dense_nonpacked_validate(obj);
}