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

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

Author: peter_carl
Date: 2013-10-03 15:38:17 +0200 (Thu, 03 Oct 2013)
New Revision: 3199

Modified:
   pkg/PerformanceAnalytics/R/chart.RiskReturnScatter.R
Log:
- added no.readonly=TRUE to par


Modified: pkg/PerformanceAnalytics/R/chart.RiskReturnScatter.R
===================================================================
--- pkg/PerformanceAnalytics/R/chart.RiskReturnScatter.R	2013-10-03 13:27:36 UTC (rev 3198)
+++ pkg/PerformanceAnalytics/R/chart.RiskReturnScatter.R	2013-10-03 13:38:17 UTC (rev 3199)
@@ -137,7 +137,7 @@
         ylim = c(min(c(0,returns)), max(returns) + 0.02)
 
     if(add.boxplots){
-        original.layout <- par()
+        original.layout <- par(no.readonly=TRUE)
         layout( matrix( c(2,1,0,3), 2, 2, byrow=TRUE ),
                 c(1,6), c(4,1),
             )