internal.h File Reference

#include <R.h>
#include <Rmath.h>
#include <Rdefines.h>
#include <assert.h>

Include dependency graph for internal.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Macros
#define	R_NO_REMAP
#define	err(...)
#define	warn(...)
#define	rprint(S)

Typedefs
typedef Rbyte	raw_t
typedef double	slate_t
typedef size_t	name_t

Functions
static int	random_integer (int n)
static void	random_sample_wo_repl (int *samples, int N, int n)
static int	set_list_elem (SEXP list, SEXP names, SEXP element, const char *name, int pos)
static int	rcateg (double erate, double *rate, int nrate)

Macro Definition Documentation

err

#define err

(

...

)

Value:

Rf_errorcall(R_NilValue,__VA_ARGS__)

Definition at line 18 of file internal.h.

R_NO_REMAP

#define R_NO_REMAP

Definition at line 4 of file internal.h.

rprint

#define rprint

(

S

)

Value:

Rprintf("%s\n",(S).c_str())

Definition at line 20 of file internal.h.

warn

#define warn

(

...

)

Value:

Rf_warningcall(R_NilValue,__VA_ARGS__)

Definition at line 19 of file internal.h.

Typedef Documentation

name_t

typedef size_t name_t

Definition at line 54 of file internal.h.

raw_t

typedef Rbyte raw_t

Definition at line 52 of file internal.h.

slate_t

typedef double slate_t

Definition at line 53 of file internal.h.

Function Documentation

random_integer()

static int random_integer ( int n )

inlinestatic

Definition at line 57 of file internal.h.

                                         {
  return (int) floor(R_unif_index((double) n));
}

Here is the caller graph for this function:

random_sample_wo_repl()

static void random_sample_wo_repl ( int * samples, int N, int n )

inlinestatic

Definition at line 62 of file internal.h.

                                                                      {
  int k = 0; // total input records dealt with
  int m = 0; // number of items selected so far
  while (m < n && k < N) {
    int u = random_integer(N-k);
    if (u < n-m) {
      samples[m++] = k;
    }
    k++;
  }
}

Here is the call graph for this function:

rcateg()

static int rcateg ( double erate, double * rate, int nrate )

inlinestatic

Definition at line 85 of file internal.h.

                                                                 {
  double u = erate*unif_rand();
  int e = 0;
  while (u > rate[e] && e < nrate) {
    if (rate[e] < 0)
      err("in '%s': invalid rate rate[%d]=%lg",__func__,e,rate[e]); // #nocov
    u -= rate[e++];
  }
  assert(e!=nrate);             // #nocov
  return e;
}

Here is the caller graph for this function:

set_list_elem()

static int set_list_elem ( SEXP list, SEXP names, SEXP element, const char * name, int pos )

inlinestatic

Definition at line 75 of file internal.h.

   {
  SET_ELEMENT(list,pos,element);
  SET_STRING_ELT(names,pos,Rf_mkChar(name));
  return ++pos;
}

Here is the caller graph for this function: