pomp
Inference for partially observed Markov processes
All Data Structures Files Functions Variables Typedefs Enumerations Enumerator Macros Pages
userdata.c File Reference
#include "internal.h"
Include dependency graph for userdata.c:

Go to the source code of this file.

Macros

#define USERDATA   (__pomp_ptr_userdata)
 

Functions

SEXP set_pomp_userdata (SEXP userdata)
 
const SEXP get_userdata (const char *name)
 
const int * get_userdata_int (const char *name)
 
const double * get_userdata_double (const char *name)
 

Variables

static SEXP __pomp_ptr_userdata
 

Macro Definition Documentation

◆ USERDATA

#define USERDATA   (__pomp_ptr_userdata)

Definition at line 6 of file userdata.c.

Function Documentation

◆ get_userdata()

const SEXP get_userdata ( const char *  name)

Definition at line 13 of file userdata.c.

13 {
14 SEXP elt = getListElement(USERDATA,name);
15 if (isNull(elt)) err("no user-data element '%s' is found.",name);
16 return elt;
17}
#define err(...)
Definition pomp.h:21
static R_INLINE SEXP getListElement(SEXP list, const char *str)
#define USERDATA
Definition userdata.c:6
Here is the call graph for this function:
Here is the caller graph for this function:

◆ get_userdata_double()

const double * get_userdata_double ( const char *  name)

Definition at line 26 of file userdata.c.

26 {
27 SEXP elt = getListElement(USERDATA,name);
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}
Here is the call graph for this function:
Here is the caller graph for this function:

◆ get_userdata_int()

const int * get_userdata_int ( const char *  name)

Definition at line 19 of file userdata.c.

19 {
20 SEXP elt = getListElement(USERDATA,name);
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}
Here is the call graph for this function:
Here is the caller graph for this function:

◆ set_pomp_userdata()

SEXP set_pomp_userdata ( SEXP  userdata)

Definition at line 8 of file userdata.c.

8 {
9 USERDATA = userdata;
10 return R_NilValue;
11}

Variable Documentation

◆ __pomp_ptr_userdata

SEXP __pomp_ptr_userdata
static

Definition at line 5 of file userdata.c.