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)
Accuracy(res1, individual = FALSE)
Accuracy(res1, individual = TRUE)
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)
Accuracy(res2)
Run the code above in your browser using DataLab