Go to the source code of this file.
◆ USERDATA
◆ get_userdata()
const SEXP get_userdata |
( |
const char * |
name | ) |
|
Definition at line 13 of file userdata.c.
13 {
15 if (isNull(elt))
err(
"no user-data element '%s' is found.",name);
16 return elt;
17}
static R_INLINE SEXP getListElement(SEXP list, const char *str)
◆ get_userdata_double()
const double * get_userdata_double |
( |
const char * |
name | ) |
|
Definition at line 26 of file userdata.c.
26 {
28 if (isNull(elt))
err(
"no user-data element '%s' is found.",name);
29 if (!isReal(elt))
err(
"user-data element '%s' is not a numeric vector.",name);
30 return REAL(elt);
31}
◆ get_userdata_int()
const int * get_userdata_int |
( |
const char * |
name | ) |
|
Definition at line 19 of file userdata.c.
19 {
21 if (isNull(elt))
err(
"no user-data element '%s' is found.",name);
22 if (!isInteger(elt))
err(
"user-data element '%s' is not an integer.",name);
23 return INTEGER(elt);
24}
◆ set_pomp_userdata()
SEXP set_pomp_userdata |
( |
SEXP |
userdata | ) |
|
Definition at line 8 of file userdata.c.
8 {
10 return R_NilValue;
11}
◆ __pomp_ptr_userdata