[Returnanalytics-commits] r2759 - pkg/PortfolioAnalytics/R

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

Author: rossbennett34
Date: 2013-08-10 05:03:22 +0200 (Sat, 10 Aug 2013)
New Revision: 2759

Modified:
   pkg/PortfolioAnalytics/R/extractstats.R
Log:
correcting names for output of extractStats.optimize.portfolio.GenSA

Modified: pkg/PortfolioAnalytics/R/extractstats.R
===================================================================
--- pkg/PortfolioAnalytics/R/extractstats.R	2013-08-10 02:45:46 UTC (rev 2758)
+++ pkg/PortfolioAnalytics/R/extractstats.R	2013-08-10 03:03:22 UTC (rev 2759)
@@ -329,7 +329,7 @@
   obj <- unlist(object$objective_measures)
   result <- c(obj, trow)
   
-  rnames<-c('out',paste('w',names(object$weights),sep='.'))
-  names(result)<-rnames
+  rnames <- name.replace(names(result))
+  names(result) <- rnames
   return(result)
 }