Nothing
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))
}
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.