From 903484b426699f291ba158754188582b929572de Mon Sep 17 00:00:00 2001
From: Nick Clark <clarkno@mail.uc.edu>
Date: Wed, 13 Sep 2017 22:21:10 -0400
Subject: [PATCH] fix error when adjust = "none", ci = F

---
 R/corr.test.R | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/R/corr.test.R b/R/corr.test.R
index 5a9363d..76691c9 100644
--- a/R/corr.test.R
+++ b/R/corr.test.R
@@ -82,7 +82,11 @@ if (adjust !="none") {
       rownames(ci)[k] <- paste(cnR[j],cnC[i],sep="-")
       k<- k +1 }}
     }
-} else {ci <- NULL}
+} else {
+  ci <- NULL
+  sef <- NULL
+  ci.adj <- NULL
+}
 result <- list(r = r,n=n,t=t,p=p,se=se,sef=sef, adjust=adjust,sym =sym,ci=ci,ci.adj=ci.adj, Call=cl)
 class(result) <- c("psych", "corr.test")
 return(result)