Displaying 1 result from an estimated 1 matches for "areone".
Did you mean:
anyone
2003 Dec 09
1
R Interface handholding
...rner;
PROTECT(Rinput = AS_NUMERIC(Rinput));
input = * INTEGER(Rinput);
input++;
PROTECT(returner = NEW_INTEGER(input));
Rprintf("Hey there\n");
return returner;
}
I've made this into a package, by dropping it into a stub directory
along with something called init.c:
#include "areone.h"
#include <R_ext/Rdynload.h>
#include <Rinternals.h>
R_NativePrimitiveArgType myincr_t[1] = {INTSXP};
static const R_CMethodDef cMethods[] =
{
{"myincr", (DL_FUNC) &myincr, 1, myincr_t}
};
void R_init_myincr(DllInfo* dll)
{
R_registerRouti...