https://github.com/cran/emplik
Tip revision: 6cd9a38c07c284a06b4dce3ee7eb0f0f77e1af41 authored by Mai Zhou on 03 April 2023, 07:20:02 UTC
version 1.3
version 1.3
Tip revision: 6cd9a38
init.c
#include <Rdefines.h>
#include <R_ext/Rdynload.h>
#include <R_ext/Visibility.h>
#include "foo.h"
static R_NativePrimitiveArgType cumsumsurv_types[3] = {REALSXP, REALSXP, INTSXP};
static R_NativePrimitiveArgType eltestwt_types[6] = {REALSXP, REALSXP, REALSXP, INTSXP, REALSXP, REALSXP};
static R_CMethodDef cMethods[] = {
{"cumsumsurv", (DL_FUNC)&cumsumsurv, 3, cumsumsurv_types},
{"eltestwt", (DL_FUNC)&eltestwt, 6, eltestwt_types},
{NULL, NULL, 0, NULL}};
void attribute_visible R_init_fooR(DllInfo *info) /* change fooR to emplik? */
{
R_registerRoutines(info, cMethods, NULL, NULL, NULL);
R_useDynamicSymbols(info, FALSE);
R_forceSymbols(info, TRUE);
}