R/printCI.R

In dafs: Data Analysis for Forensic Scientists

Defines functions printCI

Documented in printCI

printCI = function(x, fmt){
    if(length(x)!=2)
        stop("x must have be a vector of length 2")
    strFmt = paste('(',fmt,', ',fmt,')',sep='')
    strResult = sprintf(strFmt, x[1], x[2])
    return(strResult)
}

Try the dafs package in your browser