[Analogue-commits] r163 - in pkg: R inst man

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

Author: gsimpson
Date: 2010-03-09 13:19:32 +0100 (Tue, 09 Mar 2010)
New Revision: 163

Modified:
   pkg/R/plot.bayesF.R
   pkg/inst/ChangeLog
   pkg/man/bayesF.Rd
Log:
new argument abline.lty in plot.bayesF

Modified: pkg/R/plot.bayesF.R
===================================================================
--- pkg/R/plot.bayesF.R	2010-03-09 12:18:08 UTC (rev 162)
+++ pkg/R/plot.bayesF.R	2010-03-09 12:19:32 UTC (rev 163)
@@ -5,13 +5,14 @@
                         ylab = "Pr (A+ | d)",
                         col = "red",
                         abline.col = "lightgrey",
+                        abline.lty = "dashed",
                         ...) {
   pfun <- function(x, xlab, ylab, col, abline.col, main, ...) {
       prob.pos <- x$posterior.odds$pos / (1 + x$posterior.odds$pos)
       prob.pos[is.nan(prob.pos)] <- 1
       plot(rev(x$roc.points), prob.pos, type = "n",
            ylab = "", xlab = "", axes = FALSE, main = main)
-      abline(v = x$optimal, lty = "dotted", col = abline.col)
+      abline(v = x$optimal, lty = abline.lty, col = abline.col)
       lines(rev(x$roc.points), prob.pos, col = col)
       axis(1)
       axis(2)

Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog	2010-03-09 12:18:08 UTC (rev 162)
+++ pkg/inst/ChangeLog	2010-03-09 12:19:32 UTC (rev 163)
@@ -29,6 +29,9 @@
 	* plot.minDC: argument 'lty.quantile' was not being used by the
 	graphical function that drew the quantiles of the pairwise D[ij]s.
 
+	* plot.bayesF: New argument 'abline.lty', which defaults to "dashed",
+	controls plotting of the optimal ROC dissimilarity threshold.
+
 Version 0.6-22
 
 	* tran.formula: bug in my implementation of the standard

Modified: pkg/man/bayesF.Rd
===================================================================
--- pkg/man/bayesF.Rd	2010-03-09 12:18:08 UTC (rev 162)
+++ pkg/man/bayesF.Rd	2010-03-09 12:19:32 UTC (rev 163)
@@ -14,7 +14,7 @@
 bayesF(x, prior = rep(0.5, 2))
 
 \method{plot}{bayesF}(x, group = "all", xlab = NULL, ylab = "Pr (A+ | d)",
-        col = "red", abline.col = "lightgrey", ...)
+        col = "red", abline.col = "lightgrey", abline.lty = "dashed", ...)
 }
 %- maybe also 'usage' for other objects documented here.
 \arguments{
@@ -31,6 +31,8 @@
   \item{col}{colour of the line used to draw the posterior probability.}
   \item{abline.col}{colour of the vertical line drawn to indicate the
     optimal dissimilarity determined from the ROC curve.}
+  \item{abline.lty}{Line type for indicator of optimal ROC dissimilarity
+    threshold. See \code{\link{par}} for the allowed line types.}
   \item{\dots}{other plot arguments passed to plotting
     functions. Currently ignored.}
 }