`DCF` <-
function (pfa, pmiss) {
DCF.p <- get("DCF.p", envir=.sretoolsEnv)
if (missing(pfa) && missing(pmiss))
DCF.p
else {
stopifnot(!missing(pfa) & !missing(pmiss))
DCF.p$cmiss*pmiss*DCF.p$prior + DCF.p$cfa*pfa*(1-DCF.p$prior)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.