Extract the expected number of tests from testing configuration results

Extract the expected number of tests and expected number of tests per individual from objects of class "opchar" returned by operatingCharacteristics1 (opChar1) or operatingCharacteristics2 (opChar2).

# S3 method for class 'opChar'
ExpTests(object, ...)

Arguments

object: An object of class "opChar", from which the expected number of tests and expected number of tests per individual are to be extracted.
...: Additional arguments to be passed to ExpTests (e.g., digits to be passed to round for appropriate rounding).

Value

A data frame containing the columns:

ExpTests: the expected number of tests required to decode all individuals in the algorithm.
ExpTestsPerIndividual: the expected number of tests per individual.
PercentReductionTests: The percent reduction in the number of tests; 100 * (1 - ExpTestsPerIndividual).
PercentIncreaseTestCap: The percent increase in testing capacity when the algorithm is applied to a continuous stream of specimens; 100 * (1/ExpTestsPerIndividual - 1).

References

Bilder, C., Iwen, P., Abdalhamid, B., Tebbs, J., McMahan, C. (2020). “Tests in short supply? Try group testing.” Significance, 17, 15.

Author

Brianna D. Hitt and Christopher R. Bilder

Examples

config.mat <- matrix(data = c(rep(1, 10), 1:10),
                     nrow = 2, ncol = 10, byrow = TRUE)
res1 <- opChar1(algorithm = "D2", p = 0.05, Se = 0.99, Sp = 0.99,
                hier.config = config.mat)
#> 
#>  Number of minutes running:  0 
#>  
ExpTests(res1)
#>   ExpTests ExpTestsPerIndividual PercentReductionTests PercentIncreaseTestCap
#> 1   5.0324                0.5032                 49.68                  98.71

res2 <- opChar2(algorithm = "A2M", p.vec = c(0.92, 0.05, 0.02, 0.01),
                Se = rep(0.95, 2), Sp = rep(0.99, 2), rowcol.sz = 8)
#> 
#>  Number of minutes running:  0 
#>  
ExpTests(res2)
#>   ExpTests ExpTestsPerIndividual PercentReductionTests PercentIncreaseTestCap
#> 1  30.2892                0.4733                 52.67                 111.30