[Analogue-commits] r285 - in pkg: R inst

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

Author: gsimpson
Date: 2012-08-15 16:14:50 +0200 (Wed, 15 Aug 2012)
New Revision: 285

Modified:
   pkg/R/plot.logitreg.R
   pkg/inst/ChangeLog
Log:
fix bug when plotting single model

Modified: pkg/R/plot.logitreg.R
===================================================================
--- pkg/R/plot.logitreg.R	2012-08-01 21:56:07 UTC (rev 284)
+++ pkg/R/plot.logitreg.R	2012-08-15 14:14:50 UTC (rev 285)
@@ -79,7 +79,7 @@
     else {
         n.plot <- 1
         min <- 0
-        max <- max(x[[group]]$data$Dij)
+        max <- max(x$models[[group]]$data$Dij)
         ##xy.nums <- rep(1, 2)
     }
     for (i in seq_len(n.groups)) {

Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog	2012-08-01 21:56:07 UTC (rev 284)
+++ pkg/inst/ChangeLog	2012-08-15 14:14:50 UTC (rev 285)
@@ -5,6 +5,9 @@
 	* caterpillarPlot: can now be called by the shorter name
 	caterpillar().
 
+	* plot.logitreg: bug would cause plotting to fail if you plotted
+	a single model.
+
 Version 0.9-9
 
 	* prcurve: added a print method.