[Returnanalytics-commits] r1921 - pkg/PortfolioAnalytics/sandbox

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

Author: peter_carl
Date: 2012-04-28 05:00:28 +0200 (Sat, 28 Apr 2012)
New Revision: 1921

Modified:
   pkg/PortfolioAnalytics/sandbox/script.workshop2012.R
Log:
- slight modifications to distributions view

Modified: pkg/PortfolioAnalytics/sandbox/script.workshop2012.R
===================================================================
--- pkg/PortfolioAnalytics/sandbox/script.workshop2012.R	2012-04-28 02:59:20 UTC (rev 1920)
+++ pkg/PortfolioAnalytics/sandbox/script.workshop2012.R	2012-04-28 03:00:28 UTC (rev 1921)
@@ -120,19 +120,19 @@
 # layout.show(n=21)
 chart.mins=min(edhec.R)
 chart.maxs=max(edhec.R)
-# @TODO: Fix chart.ECDF - delete xlim, ylim; add xaxis, yaxis=TRUE
-# @TODO: Fix chart.QQPlot - add xaxis, yaxis=TRUE; ylim; add 45 degree line abline(0,1) and dashed best fit line
+# @TODO: Fix chart.ECDF - delete xlim, ylim;
+# @TODO: Fix chart.QQPlot - ylim; add 45 degree line abline(0,1) and dashed best fit line
 # @TODO: Unify blue default color between fits
 for(i in 1:7){
   if(i==7){
-    chart.Histogram(edhec.R[,i], main="", xlim=c(chart.mins, chart.maxs), breaks=seq(-0.15,0.10, by=0.01))
-    chart.QQPlot(edhec.R[,i], main="")
-    chart.ECDF(edhec.R[,i], main="", xlim=c(chart.mins, chart.maxs))
+    chart.Histogram(edhec.R[,i], main="", xlim=c(chart.mins, chart.maxs), breaks=seq(-0.15,0.10, by=0.01), show.outliers=TRUE, methods=c("add.normal"))
+    chart.QQPlot(edhec.R[,i], main="", pch="*", envelope=0.95, col=c(1,"#005AFF"), ylim=c(chart.mins, chart.maxs))
+    chart.ECDF(edhec.R[,i], main="", xlim=c(chart.mins, chart.maxs), lwd=2)
   }
   else{
-    chart.Histogram(edhec.R[,i], main="", xlim=c(chart.mins, chart.maxs), breaks=seq(-0.15,0.10, by=0.01), xaxis=FALSE, yaxis=FALSE)
-    chart.QQPlot(edhec.R[,i], main="")
-    chart.ECDF(edhec.R[,i], main="", xlim=c(chart.mins, chart.maxs), xaxis=FALSE, yaxis=FALSE)
+    chart.Histogram(edhec.R[,i], main="", xlim=c(chart.mins, chart.maxs), breaks=seq(-0.15,0.10, by=0.01), xaxis=FALSE, yaxis=FALSE, show.outliers=TRUE, methods=c("add.normal"))
+    chart.QQPlot(edhec.R[,i], main="", xaxis=FALSE, yaxis=FALSE, pch="*", envelope=0.95, col=c(1,"#005AFF"), ylim=c(chart.mins, chart.maxs))
+    chart.ECDF(edhec.R[,i], main="", xlim=c(chart.mins, chart.maxs), xaxis=FALSE, yaxis=FALSE, lwd=2)
   }
 }
 par(op)