summaryrefslogtreecommitdiff
path: root/R/src/wrapper.c
diff options
context:
space:
mode:
Diffstat (limited to 'R/src/wrapper.c')
-rw-r--r--R/src/wrapper.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/R/src/wrapper.c b/R/src/wrapper.c
index dd7bce1..52c1192 100644
--- a/R/src/wrapper.c
+++ b/R/src/wrapper.c
@@ -1,7 +1,7 @@
#include "pca.h"
void
-pca_wrapper(int *n, int *d, double *q, int *k, double *X, double *B, double *U, double *l) {
+pca_wrapper(int *n, int *d, int *iters, double *q, int *k, double *X, double *B, double *U, double *l) {
struct futhark_context_config *cfg = futhark_context_config_new();
struct futhark_context *ctx = futhark_context_new(cfg);
@@ -11,7 +11,7 @@ pca_wrapper(int *n, int *d, double *q, int *k, double *X, double *B, double *U,
struct futhark_f64_2d *Bf;
struct futhark_f64_2d *Uf;
- futhark_entry_pcaWithQuantile(ctx, &Bf, &Uf, &Yf, l, *q, *k, Xf);
+ futhark_entry_pcaWithQuantile(ctx, &Bf, &Uf, &Yf, l, *iters, *q, *k, Xf);
futhark_context_sync(ctx);
futhark_values_f64_2d(ctx, Bf, B);
futhark_values_f64_2d(ctx, Uf, U);