R/AOppvnpv.R

AOppvnpv <-
function(se, sp){
oddsppv <- sqrt((1-se)*(1-sp)/(se*sp))
oddsnpv <- sqrt((se*sp)/((1-se)*(1-sp)))
Pppv<-oddsppv/(1+oddsppv)
Pnpv<-oddsnpv/(1+oddsnpv)
return(c(Pppv=Pppv, Pnpv=Pnpv))
}

Try the bdpv package in your browser

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

bdpv documentation built on May 2, 2019, 1:08 p.m.