1


# pROC: Tools Receiver operating characteristic (ROC curves) with

2


# (partial) area under the curve, confidence intervals and comparison.

3


# Copyright (C) 20112014 Xavier Robin, Alexandre Hainard, Natacha Turck,

4


# Natalia Tiberti, Frédérique Lisacek, JeanCharles Sanchez

5


# and Markus Müller

6


#

7


# This program is free software: you can redistribute it and/or modify

8


# it under the terms of the GNU General Public License as published by

9


# the Free Software Foundation, either version 3 of the License, or

10


# (at your option) any later version.

11


#

12


# This program is distributed in the hope that it will be useful,

13


# but WITHOUT ANY WARRANTY; without even the implied warranty of

14


# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

15


# GNU General Public License for more details.

16


#

17


# You should have received a copy of the GNU General Public License

18


# along with this program. If not, see <http://www.gnu.org/licenses/>.

19



20


has.partial.auc < function(roc) {

21

8

UseMethod("has.partial.auc")

22


}

23



24


has.partial.auc.auc < function(roc) {

25

8

if (is.null(roc)) {

26

0

return(NULL)

27


}

28



29

8

is.numeric(attr(roc, "partial.auc")) && length(attr(roc, "partial.auc") == 2)

30


}

31



32


has.partial.auc.smooth.roc < function(roc) {

33

0

return(has.partial.auc.roc(roc))

34


}

35



36


has.partial.auc.roc < function(roc) {

37

8

return(has.partial.auc.auc(roc$auc))

38


}
