[Analogue-commits] r324 - pkg/R

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

Author: gsimpson
Date: 2013-05-13 07:02:01 +0200 (Mon, 13 May 2013)
New Revision: 324

Modified:
   pkg/R/scores.prcurve.R
Log:
preserve the names on 'lambda' when returning it as a matrix

Modified: pkg/R/scores.prcurve.R
===================================================================
--- pkg/R/scores.prcurve.R	2013-05-13 04:56:03 UTC (rev 323)
+++ pkg/R/scores.prcurve.R	2013-05-13 05:02:01 UTC (rev 324)
@@ -4,6 +4,8 @@
   ## return position along the curve?
   if (isTRUE(all.equal(display, "curve"))) {
     ret <- matrix(x$lambda, ncol = 1)
+    rownames(ret) <- names(x$lambda)
+    colnames(ret) <- "PrC"
   }
   ## return coordinates of curve in each dimension
   if (isTRUE(all.equal(display, "dimensions"))) {