Skip to main content
https://github.com/cran/HLSM
10 June 2025, 07:48:45 UTC
Raw File Download
Tip revision: c459c6e6f45675d43715d71bb4f07ab3cc4d9b99 authored by Tracy Sweet on 04 June 2025, 15:30:09 UTC
version 0.9.2
Tip revision: c459c6e
init.c 
#include <stdlib.h> // for NULL
#include <R_ext/Rdynload.h>

/* FIXME: 
Check these declarations against the C/Fortran source code.
*/

/* .C calls */
extern void sampleFixedIntervention(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void sampleRandomIntervention(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void sampleFixedEFFixedIntercept(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void sampleFixedIntercept(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);

static const R_CMethodDef CEntries[] = {
  {"sampleFixedIntervention",  (DL_FUNC) &sampleFixedIntervention,  28},
  {"sampleRandomIntervention", (DL_FUNC) &sampleRandomIntervention, 30},
    {"sampleFixedEFFixedIntercept", (DL_FUNC) &sampleFixedEFFixedIntercept, 25},
    {"sampleFixedIntercept", (DL_FUNC) &sampleFixedIntercept, 25},
  {NULL, NULL, 0}
};

void R_init_HLSM(DllInfo *dll)
{
  R_registerRoutines(dll, CEntries, NULL, NULL, NULL);
  R_useDynamicSymbols(dll, FALSE);
}