25 lines
699 B
C
25 lines
699 B
C
#include <R.h>
|
|
#include <Rinternals.h>
|
|
#include <stdlib.h> // for NULL
|
|
#include <R_ext/Rdynload.h>
|
|
|
|
/* .Call calls */
|
|
extern SEXP cve(SEXP X, SEXP Y, SEXP k, SEXP h,
|
|
SEXP method,
|
|
SEXP V, // initial
|
|
SEXP momentum, SEXP tau, SEXP tol,
|
|
SEXP slack, SEXP gamma,
|
|
SEXP epochs, SEXP attempts,
|
|
SEXP logger, SEXP loggerEnv);
|
|
|
|
static const R_CallMethodDef CallEntries[] = {
|
|
{"cve", (DL_FUNC) &cve, 15},
|
|
{NULL, NULL, 0}
|
|
};
|
|
|
|
/* Restrict C entrypoints to registered routines. */
|
|
void R_initCVE(DllInfo *dll) {
|
|
R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
|
|
R_useDynamicSymbols(dll, FALSE);
|
|
}
|