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 Oct. 1, 2026, 1:06 a.m.