R/nnd.R

Defines functions nnd

Documented in nnd

#' @export
nnd<-function(Cell1, Cell2, Cell3, Cell4){
  Prev<-(Cell1+Cell3)
  Prev0<-(Cell2+Cell4)
  Sens<-(Cell1/Prev)
  Spec<-(Cell3/Prev0)
  NND<-1/((Sens+Spec)-1)
  message(paste('Number Needed to Diagnose =',(NND)))}

Try the ClinSigMeasures package in your browser

Any scripts or data that you put into this service are public.

ClinSigMeasures documentation built on July 1, 2024, 9:07 a.m.