10 lines
211 B
C++
10 lines
211 B
C++
#include <R.h>
|
|
#include <Rinternals.h>
|
|
|
|
extern "C" SEXP subtract(SEXP a, SEXP b)
|
|
{
|
|
SEXP result = PROTECT(allocVector(REALSXP, 1));
|
|
REAL(result)[0] = asReal(a) - asReal(b);
|
|
UNPROTECT(1);
|
|
return result;
|
|
}
|