10 SEXP val = PROTECT(NEW_OBJECT(MAKE_CLASS((asInteger(kind) == 1) ?
16 int n = *INTEGER(dimP);
23 *CHAR(STRING_ELT(uplo, 0)) ==
'U' ?
UPP :
LOW);
31 SEXP val = PROTECT(NEW_OBJECT(MAKE_CLASS((asInteger(kind) == 1) ?
36 int n = *INTEGER(dimP);
43 *CHAR(STRING_ELT(uplo, 0)) ==
'U' ?
UPP :
LOW,
NUN);
55 SEXP val = PROTECT(NEW_OBJECT(MAKE_CLASS((asInteger(kind) == 1) ?
62 int n = *INTEGER(dimP);
70 *CHAR(STRING_ELT(uplo, 0)) ==
'U' ?
UPP :
LOW);
80 SEXP val = PROTECT(NEW_OBJECT(MAKE_CLASS((asInteger(kind) == 1) ?
86 int n = *INTEGER(dimP);
94 *CHAR(STRING_ELT(uplo, 0)) ==
'U' ?
UPP :
LOW,
95 *CHAR(STRING_ELT(diag, 0)) ==
'U' ?
UNT :
NUN);
105 SEXP val = PROTECT(NEW_OBJECT(MAKE_CLASS((asInteger(kind) == 1) ?
122 SEXP val = PROTECT(NEW_OBJECT(MAKE_CLASS((asInteger(kind) == 1) ?
SEXP lsyMatrix_as_lgeMatrix(SEXP from, SEXP kind)
#define slot_dup(dest, src, sym)
void make_i_matrix_symmetric(int *to, SEXP from)
void make_i_matrix_triangular(int *x, SEXP from)
SEXP lsyMatrix_as_lspMatrix(SEXP from, SEXP kind)
SEXP ltrMatrix_as_lgeMatrix(SEXP from, SEXP kind)
SEXP ltpMatrix_as_ltrMatrix(SEXP from, SEXP kind)
SEXP lspMatrix_as_lsyMatrix(SEXP from, SEXP kind)
SEXP ltrMatrix_as_ltpMatrix(SEXP from, SEXP kind)
static R_INLINE SEXP ALLOC_SLOT(SEXP obj, SEXP nm, SEXPTYPE type, int length)
Allocate an SEXP of given type and length, assign it as slot nm in the object, and return the SEXP...