# Generate a group membership matrix for a two-stage
# hierarchical algorithm, within the opChar1() function
# and calculate operating characteristics
opChar1(algorithm = "D2", p = 0.0193, Se = 0.99, Sp = 0.99,
hier.config = GroupMembershipMatrix(stage1 = 16),
print.time = FALSE)
# Generate a group membership matrix for a five-stage
# hierarchical algorithm and calculate the
# operating characteristics for a two-disease assay
config.mat <- GroupMembershipMatrix(stage1 = 16,
stage2 = c(8,8),
stage3 = c(4,4,4,4),
stage4 = rep(2, times = 8))
Se <- matrix(data = rep(0.95, 10), nrow = 2, ncol = 5,
dimnames = list(Infection = 1:2, Stage = 1:5))
Sp <- matrix(data = rep(0.99, 10), nrow = 2, ncol = 5,
dimnames = list(Infection = 1:2, Stage = 1:5))
opChar2(algorithm = "D5", p.vec = c(0.92, 0.05, 0.02, 0.01),
Se = Se, Sp = Sp, hier.config = config.mat)
Run the code above in your browser using DataLab