data('simRates', package='INSPEcT')
data('simData3rep', package='INSPEcT')
rocThresholds(simRates, simData3rep)
# Increase the Brown threshold for all rates (be more relaxed)
thresholds(simData3rep)$brown <- c(alpha=.05, beta=.05, gamma=.05)
rocThresholds(simRates, simData3rep)
Run the code above in your browser using DataLab