Nothing
# {{{ UseMethod
TPR <- function(x,...){
UseMethod("TPR",x)
}
TPR.numeric <- function(x,...){
tmp <- binom.test(x[4],(x[3]+x[4]),...)
ci.tpr <- c(tmp$estimate,tmp$conf.int)
names(ci.tpr) <- c("TPR (Sensitivity)","Lower","Upper")
ci.tpr
}
TPR.table <- function(x,...){
tmp <- binom.test(x[4],(x[3]+x[4]),...)
ci.tpr <- c(tmp$estimate,tmp$conf.int)
names(ci.tpr) <- c("TPR (Sensitivity)","Lower","Upper")
ci.tpr
}
TNR <- function(x,...){
UseMethod("TNR",x)
}
TNR.numeric <- function(x,...){
tmp <- binom.test(x[1],(x[1]+x[2]),...)
ci.tnr <- c(tmp$estimate,tmp$conf.int)
names(ci.tnr) <- c("TPR (Specificity)","Lower","Upper")
ci.tnr
}
TNR.table <- function(x,...){
tmp <- binom.test(x[1],(x[1]+x[2]),...)
ci.tnr <- c(tmp$estimate,tmp$conf.int)
names(ci.tnr) <- c("TPR (Specificity)","Lower","Upper")
ci.tnr
}
# }}}
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.