## Test with TONY data for which chisqr can be calculated
ds <- DfFroc2Roc(dataset01)
fit <- FitBinormalRoc(ds, 2, 3) # trt 2 and rdr 3
## fitted a,b and zeta parameters from preceding line were used to call the
## function as shown below:
fpCounts = c(119, 30, 9, 19, 7, 1)
tpCounts = c(10, 11, 7, 16, 29, 16)
gfit = ChisqrGoodnessOfFit(fpCounts, tpCounts,
parameters = c(fit$a, fit$b, fit$zetas), model="BINORMAL")
gfit
Run the code above in your browser using DataLab