equivalent .Call() version of the x + 1 routine

dsidavis · May 19, 2019 · 013d197 · 013d197
1 parent f7a9b74
commit 013d197
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/dotC/src/dotCall.c b/dotC/src/dotCall.c
@@ -0,0 +1,16 @@
+#include <Rdefines.h>
+
+SEXP
+R_add1_2(SEXP x)
+{
+    int len = LENGTH(x) ; //Rf_length(x);
+    SEXP ans;
+    if(TYPEOF(x) != REALSXP) {
+	PROBLEM "wrong type"
+	    ERROR;
+    }
+    ans = NEW_NUMERIC(len);
+    for(int i = 0; i < len; i++) 
+	REAL(ans)[i] = REAL(x)[i] + 1;
+    return(ans);
+}