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