# Calculate the operating characteristics for non-informative
# two-stage hierarchical (Dorfman) testing.
config.mat <- matrix(data = c(rep(1, 10), 1:10),
nrow = 2, ncol = 10, byrow = TRUE)
opChar1(algorithm = "D2", p = 0.05, Se = 0.99, Sp = 0.99,
hier.config = config.mat, print.time = FALSE)
# Calculate the operating characteristics for informative
# two-stage hierarchical (Dorfman) testing.
# A vector of individual probabilities is generated using
# the expected value of order statistics from a beta
# distribution with p = 0.01 and a heterogeneity level
# of alpha = 0.5.
config.mat <- matrix(data = c(rep(1:3, each = 10), 1:30),
nrow = 2, ncol = 30, byrow = TRUE)
set.seed(52613)
opChar1(algorithm = "ID2", p = 0.01, Se = 0.95, Sp = 0.95,
hier.config = config.mat, alpha = 0.5, num.sim = 10000)
# Equivalent code using a heterogeneous vector of
# probabilities
set.seed(52613)
probs <- expectOrderBeta(p = 0.01, alpha = 0.5, size = 30)
opChar1(algorithm = "ID2", probabilities = probs,
Se = 0.95, Sp = 0.95, hier.config = config.mat)
# Calculate the operating characteristics for
# non-informative three-stage hierarchical testing.
config.mat <- matrix(data = c(rep(1, 18), rep(1:3, each = 5),
rep(4, 3), 1:18),
nrow = 3, ncol = 18, byrow = TRUE)
opChar1(algorithm = "D3", p = 0.001, Se = 0.95, Sp = 0.95,
hier.config = config.mat)
opChar1(algorithm = "D3", p = 0.001, Se = c(0.95, 0.95, 0.99),
Sp = c(0.96, 0.96, 0.98), hier.config = config.mat)
# Calculate the operating characteristics for
# informative three-stage hierarchical testing,
# given a heterogeneous vector of probabilities.
config.mat <- matrix(data = c(rep(1, 6), rep(1:2, each = 3),
1:6), nrow = 3, ncol = 6,
byrow = TRUE)
set.seed(52613)
opChar1(algorithm = "ID3",
probabilities = c(0.012, 0.014, 0.011, 0.012, 0.010, 0.015),
Se = 0.99, Sp = 0.99, hier.config = config.mat,
alpha = 0.5, num.sim = 5000)
# Calculate the operating characteristics for
# non-informative four-stage hierarchical testing.
config.mat <- matrix(data = c(rep(1, 12), rep(1, 8),
rep(2, 2), 3, 4, rep(1, 5),
rep(2, 3), 3, 4, rep(NA, 2),
1:8, rep(NA, 4)), nrow = 4,
ncol = 12, byrow = TRUE)
opChar1(algorithm = "D4", p = 0.041, Se = 0.99, Sp = 0.90,
hier.config = config.mat)
# Calculate the operating characteristics for
# informative four-stage hierarchical testing.
# A vector of individual probabilities is generated using
# the expected value of order statistics from a beta
# distribution with p = 0.041 and a heterogeneity level
# of alpha = 0.5.
config.mat <- matrix(data = c(rep(1, 12), rep(1, 8),
rep(2, 2), 3, 4, rep(1, 5),
rep(2, 3), 3, 4, rep(NA, 2),
1:8, rep(NA, 4)), nrow = 4,
ncol = 12, byrow = TRUE)
set.seed(5678)
opChar1(algorithm = "ID4", p = 0.041, Se = 0.99, Sp = 0.90,
hier.config = config.mat, alpha = 0.5)
# Calculate the operating characteristics for
# non-informative array testing without master pooling.
opChar1(algorithm = "A2", p = 0.005, Se = c(0.95, 0.99),
Sp = c(0.95, 0.99), rowcol.sz = 8, a = 1)
# Calculate the operating characteristics for
# informative array testing without master pooling.
# A vector of individual probabilities is generated using
# the expected value of order statistics from a beta
# distribution with p = 0.03 and a heterogeneity level
# of alpha = 2.
set.seed(1002)
opChar1(algorithm = "IA2", p = 0.03, Se = 0.95, Sp = 0.95,
rowcol.sz = 8, alpha = 2, a = 1:10)
# Calculate the operating characteristics for
# non-informative array testing with master pooling.
opChar1(algorithm = "A2M", p = 0.02, Se = c(0.95,0.95,0.99),
Sp = c(0.98,0.98,0.99), rowcol.sz = 5)
Run the code above in your browser using DataLab