[Returnanalytics-commits] r3297 - pkg/PerformanceAnalytics/R

[noreply at r-forge.r-project.org]

Author: peter_carl
Date: 2014-01-06 15:37:34 +0100 (Mon, 06 Jan 2014)
New Revision: 3297

Modified:
   pkg/PerformanceAnalytics/R/chart.Correlation.R
Log:
- now passing method into cor.test


Modified: pkg/PerformanceAnalytics/R/chart.Correlation.R
===================================================================
--- pkg/PerformanceAnalytics/R/chart.Correlation.R	2014-01-03 07:09:58 UTC (rev 3296)
+++ pkg/PerformanceAnalytics/R/chart.Correlation.R	2014-01-06 14:37:34 UTC (rev 3297)
@@ -46,7 +46,7 @@
         txt <- paste(prefix, txt, sep="")
         if(missing(cex.cor)) cex <- 0.8/strwidth(txt)
 
-        test <- cor.test(x,y)
+        test <- cor.test(x,y, method=method)
         # borrowed from printCoefmat
         Signif <- symnum(test$p.value, corr = FALSE, na = FALSE,
                     cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1),