Nothing
Likelihoods <-
function(resTable){
sensitivity <- resTable$TP/(resTable$TP + resTable$FN)
specificity <- resTable$TN/(resTable$FP + resTable$TN)
rhoPos <- sensitivity/(1 - specificity)
rhoNeg <- (1 - sensitivity)/specificity
rrho <- cbind(rhoPos = rhoPos, rhoNeg = rhoNeg)
return(rrho)
}
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.