diff --git a/R/correlationMatrix.R b/R/correlationMatrix.R
index 7c8ec4fb90a8f7c9a1ca63c7754a08445cd07453..1e980ee9f6c9d1b57849d14ad225e273736accea 100644
--- a/R/correlationMatrix.R
+++ b/R/correlationMatrix.R
@@ -96,7 +96,7 @@ changeCoding <- function(x, v) {
 #' @export
 #' 
 getGenoCorMatrix <- function(lrsid, lchr, lpos, lrefall, pop, path = NULL, web = TRUE, pruning = TRUE, rthresh = 1) {
-    option(warn = -1)
+    options(warn = -1)
     if (length(lchr) > 1) {
         lpop <- rep(pop, length(lchr))
         referencedata <- mapply(get_vcf, lchr, lpos, lpos, lpop, MoreArgs = list(path, web), SIMPLIFY = FALSE)