C++ (Cpp) dense_nonpacked_validate Examples

Example #1

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);
}

Example #2

File: dtrMatrix.c Project: rforge/matrix

SEXP dtrMatrix_validate(SEXP obj)
{
    /* since "dtr" inherits from "triangular", and "dMatrix", only need this:*/
    return dense_nonpacked_validate(obj);
}

Example #3

File: dsyMatrix.c Project: rforge/matrix

SEXP dsyMatrix_validate(SEXP obj)
{
    /* since "dsy" inherits from "symmetric", and "dMatrix", only need this:*/
    return dense_nonpacked_validate(obj);
}