Description Usage Arguments Value Examples

An AFROC curve is a plane curve whose area under the curve (AUC) indicates an observer performance ability.
In the following, *Φ()* denotes the cumulative distribution function
on the standard Gaussian disribution.

The so-called *AFROC* curve is defined by

* (ξ(t),η(t) ) =(1-e^{-t}, Φ( bΦ^{-1}(\exp(-t) )- a ) )*

for all *t >0* and some fixed real numbers *a,b*.

Specifying two real numbers *a* and *b*, we can plot an AFROC curve.

The are under the AFROC curve, or breafly AUC, is calculated as follows, whic are used to evaluate how physicians detect lesions in radiographs.

* AUC = \int η(t) dξ(t) = \frac{ a }{ √{1+ b^2} }. *

Note that the so-called FROC curve can be interpreted as the curve of expectations of data points. On the other hand, AFROC curve cannot be interpreted as the fitted curve, but its AUC is finite. Because AFROC can be obtained by modifying FROC curve, it reflects obeserver performance.

1 |

`t` |
A real number which moves in the domain of FROC curve |

`a, b` |
One of the parameter of model which characterize AFROC curve |

`x.coordinate.also` |
Logical, whether a vector of |

if `x.coordinate.also =TRUE`

, then
A list, contains two vectors as x,y cooridinates of the AFROC curve
for drawing curves.
if `x.coordinate.also =FALSE`

, then
return is a vector as y coodinates of the AFROC curve exclueded its x-coordinates.
(x coodinates is omitted.)

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | ```
#========================================================================================
# Plot AFROC curve
#========================================================================================
tt <- seq(0, 1, length.out = 111)
ttt <- stats::runif(1000,0.001,100)
t <- c(tt,ttt)
a <- AFROC(t,x.coordinate.also=TRUE)
plot(a$x,a$y)
# We note that the x-coordinates of AFROC curve is not t but x = 1 - exp(-t).
# To emphasize that x-coordinates is not t, we prepare the another example
#========================================================================================
# Plot AFROC curve
#========================================================================================
tt <- seq(0, 1, length.out = 1111) #plot(1:length(tt),tt)
ttt <- stats::runif(1000,0.001,100)
t <- c(tt,ttt)
t <- c(0,tt,ttt,1)
t<-sort(t, method = "shell", index.return = FALSE)
y <- AFROC(t,x.coordinate.also=FALSE)
plot(1-exp(-t),y,type="l")
Close_all_graphic_devices() # 2020 August; Revised 2022 Jan 6
``` |

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.