static R_NativePrimitiveArgType
// minWhichMin
minWhich_t[] = { REALSXP, INTSXP, INTSXP, REALSXP, REALSXP },
// propclusttrial, propclustaccel, propensityclustering
propclusttrial_t[] = {SINGLESXP, INTSXP, REALSXP, REALSXP, REALSXP, REALSXP, INTSXP, INTSXP, INTSXP, INTSXP},
// propdecompaccel, propensitydecomposition
propdecompaccel_t[] = {SINGLESXP, INTSXP, REALSXP, REALSXP, REALSXP, REALSXP, INTSXP, INTSXP, INTSXP},
// singleclusterupdate
singleclusterupdate_t[] = {SINGLESXP, REALSXP, REALSXP, REALSXP, INTSXP, INTSXP};
static const R_CMethodDef R_CMethods[] = {
CDEF(minWhichMin, 5, minWhich_t),
{NULL, NULL, 0, NULL} };
static const R_FortranMethodDef R_FortranMethods[] = {
{"propclusttrial", (DL_FUNC) &F77_NAME(propclusttrial), 10, propclusttrial_t},
{"propclustaccel", (DL_FUNC) &F77_NAME(propclusttrial), 10, propclusttrial_t},
{"propensityclustering", (DL_FUNC) &F77_NAME(propclusttrial), 10, propclusttrial_t},
{"propensitydecomposition", (DL_FUNC) &F77_NAME(propensitydecomposition), 9, propdecompaccel_t},
{"propdecompaccel", (DL_FUNC) &F77_NAME(propdecompaccel), 9, propdecompaccel_t},
{"singleclusterupdate", (DL_FUNC) & F77_NAME(singleclusterupdate), 6, singleclusterupdate_t},
{NULL, NULL, 0, NULL}
};
void R_init_PropClust(DllInfo *dll)
{
R_registerRoutines(dll, R_CMethods, NULL, R_FortranMethods, NULL);
static R_NativePrimitiveArgType fracdf_t[19] = {
/* x */ REALSXP, INTSXP, INTSXP, INTSXP, INTSXP,
/* dtol */REALSXP, REALSXP, REALSXP,
/* d__*/ REALSXP, REALSXP, REALSXP, REALSXP,
/* lenw */INTSXP, INTSXP, INTSXP,
/* flmin*/REALSXP, REALSXP, REALSXP, REALSXP
};
static R_NativePrimitiveArgType fdcom_t[9] = {
/* n */ INTSXP, INTSXP, INTSXP, INTSXP,
/* hood */ REALSXP, REALSXP, REALSXP,
/*epmin */ REALSXP, REALSXP
};
static const R_CMethodDef CEntries[] = {
CDEF(fdsim),
CDEF(fdhpq),
CDEF(fdcov),
CDEF(fracdf),
CDEF(fdcom),
{NULL, NULL, 0}
};
/* static R_CallMethodDef CallEntries[] = {
* {NULL, NULL, 0}
* };
*/
/* static R_FortranMethodDef FortEntries[] = {
* {NULL, NULL, 0}
* };
SEXP Rdbfread(SEXP dbfnm);
SEXP DoWritedbf(SEXP file, SEXP df, SEXP pr, SEXP sc, SEXP DataTypes);
SEXP read_mtp(SEXP fname);
SEXP readSystat(SEXP file);
SEXP do_read_SPSS(SEXP file);
SEXP xport_info(SEXP xportFile);
SEXP xport_read(SEXP xportFile, SEXP xportInfo);
SEXP do_readStata(SEXP call);
SEXP do_writeStata(SEXP call);
#define CDEF(name, n) {#name, (DL_FUNC) &name, n}
static const R_CMethodDef CEntries[] = {
CDEF(spss_init, 0),
{NULL, NULL, 0}
};
#define CALLDEF(name, n) {#name, (DL_FUNC) &name, n}
static const R_CallMethodDef CallEntries[] = {
CALLDEF(Rdbfread, 1),
CALLDEF(DoWritedbf, 5),
CALLDEF(read_mtp, 1),
CALLDEF(readSystat, 1),
CALLDEF(do_read_SPSS, 1),
CALLDEF(xport_info, 1),
CALLDEF(xport_read, 2),
{NULL, NULL, 0}
};
}
#endif
static R_NativePrimitiveArgType R_chull_t[] = {INTSXP, REALSXP, INTSXP, INTSXP, INTSXP, INTSXP, INTSXP, INTSXP, INTSXP};
/*
#ifndef WIN32
void *getQuartzAPI();
#endif
*/
#define CDEF(name) {#name, (DL_FUNC) &name, sizeof(name ## _t)/sizeof(name ## _t[0]), name ##_t}
static R_CMethodDef CEntries [] = {
CDEF(R_chull),
/*
#ifndef WIN32
{"getQuartzAPI", (DL_FUNC) getQuartzAPI, 0},
#endif
*/
{NULL, NULL, 0}
};
#define CALLDEF(name, n) {#name, (DL_FUNC) &name, n}
static const R_CallMethodDef CallEntries[] = {
CALLDEF(Type1FontInUse, 2),
CALLDEF(CIDFontInUse, 2),
{"R_GD_nullDevice", (DL_FUNC) &R_GD_nullDevice, 0},
/*
#include <R.h>
#include <R_ext/Rdynload.h>
#include "movMF.h"
#define CDEF(name, n) {#name, (DL_FUNC) &name, n}
static const R_CMethodDef cMethods[] = {
CDEF(mycfG, 4),
CDEF(mycfP, 4),
CDEF(my0F1, 5),
CDEF(rW, 4),
{NULL, NULL, 0}
};
void R_init_movMF(DllInfo *dll)
{
R_registerRoutines(dll, cMethods, NULL, NULL, NULL);
R_useDynamicSymbols(dll, FALSE);
}
