Running examples in ‘rhoR-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: rho
> ### Title: Rho
> ### Aliases: rho
> 
> ### ** Examples
> 
> # Given an observed kappa value
> rho(x = 0.88, OcSBaserate = 0.2, testSetLength = 80)
[1] 0.1025
> 
> # Given a test Set
> rho(x = codeSet)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
rhoR
 --- call from context --- 
rho(x = codeSet)
 --- call from argument --- 
if (class(x) == "numeric") {
    if (is.null(OcSBaserate)) {
        stop("Must give a baserate when a kappa value is given")
    }
    if (is.null(testSetLength)) {
        stop("Must give a testSetLength when a kappa value is given")
    }
    result <- rhoK(x, OcSBaserate, testSetLength, testSetBaserateInflation, 
        OcSLength, replicates, ScSKappaThreshold, ScSKappaMin, 
        ScSPrecisionMin, ScSPrecisionMax)
} else if (nrow(x) != 2) {
    result <- rhoSet(x, OcSBaserate, testSetBaserateInflation, 
        OcSLength, replicates, ScSKappaThreshold, ScSKappaMin, 
        ScSPrecisionMin, ScSPrecisionMax)
} else {
    result <- rhoCT(x, OcSBaserate, testSetBaserateInflation, 
        OcSLength, replicates, ScSKappaThreshold, ScSKappaMin, 
        ScSPrecisionMin, ScSPrecisionMax)
}
 --- R stacktrace ---
where 1: rho(x = codeSet)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (x, OcSBaserate = NULL, testSetLength = NULL, testSetBaserateInflation = 0, 
    OcSLength = 10000, replicates = 800, ScSKappaThreshold = 0.9, 
    ScSKappaMin = 0.4, ScSPrecisionMin = 0.6, ScSPrecisionMax = 1) 
{
    if (class(x) == "numeric") {
        if (is.null(OcSBaserate)) {
            stop("Must give a baserate when a kappa value is given")
        }
        if (is.null(testSetLength)) {
            stop("Must give a testSetLength when a kappa value is given")
        }
        result <- rhoK(x, OcSBaserate, testSetLength, testSetBaserateInflation, 
            OcSLength, replicates, ScSKappaThreshold, ScSKappaMin, 
            ScSPrecisionMin, ScSPrecisionMax)
    }
    else if (nrow(x) != 2) {
        result <- rhoSet(x, OcSBaserate, testSetBaserateInflation, 
            OcSLength, replicates, ScSKappaThreshold, ScSKappaMin, 
            ScSPrecisionMin, ScSPrecisionMax)
    }
    else {
        result <- rhoCT(x, OcSBaserate, testSetBaserateInflation, 
            OcSLength, replicates, ScSKappaThreshold, ScSKappaMin, 
            ScSPrecisionMin, ScSPrecisionMax)
    }
    return(result)
}
<bytecode: 0x55c5f5a9e150>
<environment: namespace:rhoR>
 --- function search by body ---
Function rho in namespace rhoR has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1