### Design table:
## 8 "yes"-responses to no-samples
## 1 "yes"-responses to yes-samples
## 17 "no"-response to no-samples
## 24 "no"-responses to yes-samples
## Note that response-class is columnwise and true-class is rowwise.
(mat <- matrix(c(8, 17, 1, 24), 2, byrow = TRUE))
SDT(mat, "logit")
SDT(mat, "probit")
## compare to AnotA():
AnotA(8, 25, 1, 25)
## Multi-response-class example (odor example from MacMillan and
## Creelman, 2005)
(odor <- matrix(c(112, 112, 72, 53, 22, 4, 7, 38, 50, 117, 101, 62), 2,
byrow = TRUE))
obj <- SDT(odor)
ROC(obj[3,3])Run the code above in your browser using DataLab