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

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

Author: gsimpson
Date: 2010-03-09 13:18:08 +0100 (Tue, 09 Mar 2010)
New Revision: 162

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

Modified: pkg/R/plot.roc.R
===================================================================
--- pkg/R/plot.roc.R	2010-03-08 19:19:00 UTC (rev 161)
+++ pkg/R/plot.roc.R	2010-03-09 12:18:08 UTC (rev 162)
@@ -4,6 +4,7 @@
                      prior = NULL,
                      show.stats = TRUE,
                      abline.col = "grey",
+                     abline.lty = "dashed",
                      inGroup.col = "red",
                      outGroup.col = "blue",
                      lty = "solid",
@@ -68,7 +69,7 @@
         abline(h = 0, col = abline.col)
         lines(dens.in, col = inGroup.col, lty = lty[1L], ...)
         lines(dens.out, col = outGroup.col, lty = lty[2L], ...)
-        abline(v = x$roc[[group]]$optimal, lty = "dotted",
+        abline(v = x$roc[[group]]$optimal, lty = abline.lty,
                col = abline.col)
         axis(side = 2)
         axis(side = 1)
@@ -89,7 +90,7 @@
              sep = ""))
         abline(h = 0, col = abline.col)
         lines(cutpoints, roc.values, lty = lty[1L], ...)
-        abline(v = x$roc[[group]]$optimal, lty = "dotted",
+        abline(v = x$roc[[group]]$optimal, lty = abline.lty,
                col = abline.col)
         mtext(caption[3], side = 3, line = 1.7, font = 2)
         box()
@@ -101,7 +102,7 @@
         plot(dissims, pos, type = "n", axes = FALSE, ylab = "LR (+)",
              xlab = paste("Dissimilarity (", attr(x, "method"), ")",
              sep = ""))
-        abline(v = x$roc[[group]]$optimal, lty = "dotted",
+        abline(v = x$roc[[group]]$optimal, lty = abline.lty,
                col = abline.col)
         lines(dissims, pos, col = inGroup.col, lty = lty[1L], ...)
         axis(side = 1)

Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog	2010-03-08 19:19:00 UTC (rev 161)
+++ pkg/inst/ChangeLog	2010-03-09 12:18:08 UTC (rev 162)
@@ -23,6 +23,9 @@
 	plots. Two line types can be specified for plots comparing analogue
 	with non-analogue statistics.
 
+	New argument 'abline.lty', which defaults to "dashed", controls
+	plotting of the optimal ROC dissimilarity threshold.
+
 	* plot.minDC: argument 'lty.quantile' was not being used by the
 	graphical function that drew the quantiles of the pairwise D[ij]s.
 

Modified: pkg/man/plot.roc.Rd
===================================================================
--- pkg/man/plot.roc.Rd	2010-03-08 19:19:00 UTC (rev 161)
+++ pkg/man/plot.roc.Rd	2010-03-09 12:18:08 UTC (rev 162)
@@ -16,6 +16,7 @@
      prior = NULL,
      show.stats = TRUE,
      abline.col = "grey",
+     abline.lty = "dashed",
      inGroup.col = "red",
      outGroup.col = "blue",
      lty = "solid",
@@ -43,6 +44,8 @@
   \item{abline.col}{character string or numeric value; the
     colour used to draw vertical lines at the optimal dissimilarity on
     the plots.}
+  \item{abline.lty}{Line type for indicator of optimal ROC dissimilarity
+    threshold. See \code{\link{par}} for the allowed line types.}
   \item{inGroup.col}{character string or numeric value; the colour used
     to draw the density curve for the dissimilarities between sites in
     the same group.}