<?xml version="1.0" encoding="utf-8"?><!DOCTYPE article  PUBLIC '-//OASIS//DTD DocBook XML V4.4//EN'  'http://www.docbook.org/xml/4.4/docbookx.dtd'><article><articleinfo><title>FAQ/sigdetinR</title><revhistory><revision><revnumber>6</revnumber><date>2015-04-20 08:26:50</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>5</revnumber><date>2015-04-14 15:26:03</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>4</revnumber><date>2015-04-14 15:25:23</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>3</revnumber><date>2015-04-14 15:20:48</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>2</revnumber><date>2015-04-14 15:19:50</date><authorinitials>PeterWatson</authorinitials></revision><revision><revnumber>1</revnumber><date>2015-04-14 15:18:57</date><authorinitials>PeterWatson</authorinitials></revision></revhistory></articleinfo><section><title>Using R to compute A (aprime) and b diagnostics in Zhang, J., &amp; Mueller, S. T. (2005) for evaluating ROC diagnostics nonparametrically</title><para>(Copied from the <ulink url="https://sites.google.com/a/mtu.edu/whynotaprime/"/> weblink) </para><screen><![CDATA[A <-function(h,f)
{
  if(f<=.5 & h>=.5)
  {
    a <- .75 + (h-f)/4 - f*(1-h)
  } else if(f<=h & h<=.5)
  {
    a <- .75 + (h-f)/4 - f/(4*h)
  } else {
    a <- .75 + (h-f)/4 - (1-h)/(4 * (1-f))
  } 
  return(a)
  }
]]><![CDATA[
b <- function(h,f)
{
  if(f<=.5 & h>=.5)
  {
    b <-(5-4*h)/(1+4*f)
  } else if(f<=h & h<=.5)
  {
    b <-(h^2+h)/(h^2+f) 
  } else { 
    b <- ((1-f)^2 + (1-h))/((1-f)^2 + (1-f))
  } 
  return(b)
}]]></screen><para><emphasis role="underline">Reference</emphasis> </para><para><ulink url="https://lsr-wiki-02.mrc-cbu.cam.ac.uk/statswiki/FAQ/sigdetinR/statswiki/FAQ/sigdetinR?action=AttachFile&amp;do=get&amp;target=zm.pdf">Zhang, J., &amp; Mueller, S. T. (2005).</ulink> A note on ROC analysis and non-parametric estimate of sensitivity. <emphasis>Psychometrika</emphasis>, <emphasis role="strong">70(1)</emphasis>, 203–212. doi:10.1007/s11336-003-1119-8 </para></section></article>