powered by
Prints 'Chart of sensitivity & specificity'.
Binary_threshold(probability,class)
Probability Obtained from the model
Actual Class of the datasets
# NOT RUN { set.seed(100);disease <- sample(c("yes","no"), 1000, replace=TRUE); Probabilities<-sample(seq(0,1,by=0.01),1000,replace=TRUE); Binary_threshold(Probabilities,disease) # }
Run the code above in your browser using DataLab