R/psi.R

Defines functions psi

Documented in psi

#' @export
psi<-function(Cell1, Cell2, Cell3, Cell4){
  PosPredVal<-(Cell1/(Cell1+Cell2))
  NegPredVal<-(Cell3/(Cell3+Cell4))
  PSI<-((PosPredVal+NegPredVal)-1)
  message(paste('Predictive Summary Index =',(PSI)))}

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.