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

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

Author: braverock
Date: 2012-07-25 18:51:19 +0200 (Wed, 25 Jul 2012)
New Revision: 2206

Modified:
   pkg/PerformanceAnalytics/R/chart.Correlation.R
Log:
- fix problem with R CMD check

Modified: pkg/PerformanceAnalytics/R/chart.Correlation.R
===================================================================
--- pkg/PerformanceAnalytics/R/chart.Correlation.R	2012-07-25 15:39:11 UTC (rev 2205)
+++ pkg/PerformanceAnalytics/R/chart.Correlation.R	2012-07-25 16:51:19 UTC (rev 2206)
@@ -32,10 +32,10 @@
 
     x = checkData(R, method="matrix")
     
-    method=method[1] #only use one
+    if(missing(method)) method=method[1] #only use one
 
     # Published at http://addictedtor.free.fr/graphiques/sources/source_137.R
-    panel.cor <- function(x, y, digits=2, prefix="", use="pairwise.complete.obs", method=method, cex.cor, ...)
+    panel.cor <- function(x, y, digits=2, prefix="", use="pairwise.complete.obs", method, cex.cor, ...)
     {
         usr <- par("usr"); on.exit(par(usr))
         par(usr = c(0, 1, 0, 1))
@@ -72,9 +72,9 @@
       }
     # Draw the chart
     if(histogram)
-        pairs(x, gap=0, lower.panel=panel.smooth, upper.panel=panel.cor, diag.panel=hist.panel, ...)
+        pairs(x, gap=0, lower.panel=panel.smooth, upper.panel=panel.cor, diag.panel=hist.panel, method=method, ...)
     else
-        pairs(x, gap=0, lower.panel=panel.smooth, upper.panel=panel.cor, ...)
+        pairs(x, gap=0, lower.panel=panel.smooth, upper.panel=panel.cor, method=method, ...)
 }
 
 ###############################################################################