Displaying 1 result from an estimated 1 matches for "trapezint".
2005 Jan 11
1
Standard error for the area under a smoothed ROC curve?
...478 0.21739130 0.32608696 0.43478261 0.54347826
[7] 0.65217391 0.76086957 0.89130435 1.00000000 1.00000000 1.00000000
[13] 1.00000000
> sen # Sensitivity
[1] 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 0.9302326 0.8139535
[8] 0.6976744 0.5581395 0.4418605 0.3488372 0.2325581 0.1162791
trapezint(1-spe,sen)
my.integrate(1-spe,sen)
## Functions
## Nicked (and modified) from the ROC function in bioconductor.
"trapezint" <-
function (x, y, a = 0, b = 1)
{
if (x[1] > x[length(x)]) {
x <- rev(x)
y <- rev(y)
}
y <- y[x >= a & x <= b]...