Nothing
DiscriminantPower <-
function(resTable){
sensitivity <- resTable$TP/(resTable$TP + resTable$FN)
specificity <- resTable$TN/(resTable$FP + resTable$TN)
X <- sensitivity/(1 - sensitivity)
Y <- specificity/(1 - specificity)
DP <- (sqrt(3)/pi) * (log(X) + log(Y))
return(DP)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.