## suppose 15 out of 20 are observed in a duo-trio experiment, then
## the estimated probability of correct a answer is
(Pc <- 15/20)
## The standard error of this estimate is
(se.Pc <- sqrt(Pc * (1 - Pc) / 20))
## The corresponding estimate of proportion of discriminators (Pd) and
## d-prime with associated standard errors are:
rescale(Pc = Pc, std.err = se.Pc, method = "duotrio")
## Can also do
rescale(Pd = c(.6,.7), std.err = c(.2, NA))
psyfun(2, method = "triangle")
psyinv(0.8, method = "twoAFC")
psyderiv(2, method = "duotrio")
pc2pd(0.7, 1/2)
pd2pc(0.3, 1/3)Run the code above in your browser using DataLab