[Uwgarp-commits] r204 - in pkg/GARPFRM: R vignettes

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

Author: tfillebeen
Date: 2014-07-03 17:59:55 +0200 (Thu, 03 Jul 2014)
New Revision: 204

Modified:
   pkg/GARPFRM/R/riskMetricsAndHedges.R
   pkg/GARPFRM/vignettes/HedgeMetrics.lyx
Log:
vignette + function fix

Modified: pkg/GARPFRM/R/riskMetricsAndHedges.R
===================================================================
--- pkg/GARPFRM/R/riskMetricsAndHedges.R	2014-07-01 21:29:00 UTC (rev 203)
+++ pkg/GARPFRM/R/riskMetricsAndHedges.R	2014-07-03 15:59:55 UTC (rev 204)
@@ -218,7 +218,7 @@
  if(ncol(x$loading)> 3) warning("Only first 3 loadings will be graphically displayed")
   # Plot the first three factors
  if (ncol(x$loading) >= 3){
-   if(separate){
+   if(!separate){
    plot(x$loading[,1], type="l", main = main, 
         xlab="Maturity/Items", ylab="Loadings")
    lines(x$loading[,2], col="blue",lty=2)
@@ -229,7 +229,7 @@
           xlab="Maturity/Items")
    }
  }else if(ncol(x$loading) == 2){
-   if(separate){
+   if(!separate){
    plot(x$loading[,1], type="l", main = main, 
         xlab="Maturity/Items", ylab="Loadings")
    lines(x$loading[,2], col="blue",lty=2)

Modified: pkg/GARPFRM/vignettes/HedgeMetrics.lyx
===================================================================
(Binary files differ)