prior.log.odds <- function(dcf.p=get("DCF.p", envir = .sretoolsEnv), prior=dcf.p$prior, cfa=dcf.p$cfa, cmiss=dcf.p$cmiss) {
log(cmiss*prior / (cfa * (1-prior)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.