https://github.com/cran/emplik
Tip revision: 6499006531aa58c62dc136e7a2daf03dfbc5aa36 authored by Mai Zhou on 07 September 2023, 17:00:02 UTC
version 1.3-1
version 1.3-1
Tip revision: 6499006
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);
}