setDCF <- function(evaluation, prior=0.5, cfa=1, cmiss=1) {
if (!missing(evaluation))
if (evaluation == "nist")
DCFp <- DCF.p.nist.pre10
else if (evaluation == "evalita")
DCFp <- DCF.p.evalita
else if (evaluation == "nist10")
DCFp <- DCF.p.nist.10
else
stop("Unknown dcf parameter set")
else
DCFp <- list(prior=prior, cfa=cfa, cmiss=cmiss)
assign("DCF.p", DCFp, envir=.sretoolsEnv)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.