#include <stdlib.h> #include <stdio.h> #include <math.h> #include <R.h> #include <Rinternals.h> #include <Rmath.h> #include <R_ext/Applic.h> #include <R_ext/Lapack.h> #include <Rdefines.h> void dividetwo(int a, int b, int *result) { *result = a/b; } void Rdividetwo(int *a, int *b, int *result) { dividetwo(*a, *b, result); } #ifdef __cplusplus extern "C" { #endif void castType(int result, int *sortie) { SEXP RclustOut, ROut; SEXP Rout = PROTECT(RclustOut = allocVector(INTSXP, 2*3)); PROTECT(ROut = allocVector(VECSXP, 2)); int *clustOut = INTEGER(RclustOut); *sortie = result; } #ifdef __cplusplus } #endif
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)