1 files changed, 2 insertions, 1 deletions
diff --git a/R/R/pca.R b/R/R/pca.R
index 85782e4..7d0d742 100644
--- a/R/R/pca.R
+++ b/R/R/pca.R
@@ -1,4 +1,4 @@
-pca <- function(x, k=1,q=0.5){
+pca <- function(x, k=1, q=0.5, iters=10000){
   n <- nrow(x)
   d <- ncol(x)
   B <- matrix(0, n, k)
@@ -8,6 +8,7 @@ pca <- function(x, k=1,q=0.5){
   res <- .C("pca_wrapper",
     n=as.integer(n),
     d=as.integer(d),
+    iters=as.integer(iters),
     q=as.numeric(q),
     k=as.integer(k),
     X=as.numeric(t(x)),