[Mboost-commits] r766 - pkg/mboostDevel/R

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

Author: hofner
Date: 2014-04-03 18:33:06 +0200 (Thu, 03 Apr 2014)
New Revision: 766

Modified:
   pkg/mboostDevel/R/inference.R
Log:
- bug fixed: labels in plot.stabsel where wrong


Modified: pkg/mboostDevel/R/inference.R
===================================================================
--- pkg/mboostDevel/R/inference.R	2014-03-28 12:52:25 UTC (rev 765)
+++ pkg/mboostDevel/R/inference.R	2014-04-03 16:33:06 UTC (rev 766)
@@ -246,7 +246,6 @@
 
     type <- match.arg(type)
 
-
     if (is.null(col))
         col <- hcl(h = 40, l = 50, c = x$max / max(x$max) * 490)
 
@@ -262,7 +261,7 @@
                 main = main, col = col[x$max > 0], ylim = c(0, 1), ...)
         abline(h = x$cutoff, lty = 1, col = "lightgray")
         if (is.null(labels))
-            rownames(x$phat)
+            labels <- rownames(x$phat)
         axis(4, at = x$phat[rowSums(x$phat) > 0, ncol(x$phat)],
              labels = labels[rowSums(x$phat) > 0], las = 1)
     } else {