# NOT RUN {
#================The first example=======================================================
#1) Build the data for singler reader and single modality case.
dat <- list(c=c(3,2,1), #Confidence level
h=c(97,32,31), #Number of hits for each confidence level
f=c(1,14,74), #Number of false alarms for each confidence level
NL=259, #Number of lesions
NI=57, #Number of images
C=3) #Number of confidence level
# where, c denotes Confidence level,
# h denotes number of Hits for each confidence level,
# f denotes number of False alarms for each confidence level,
# NL denotes Number of Lesions,
# NI denotes Number of Images,
# 2) Fit the FROC model to the above data
fit <- BayesianFROC::fit_Bayesian_FROC(dat)
# 3) Extract estimates, that is posterior means and 95% credible intervals
estimates <- summary_EAP_CI_srsc( fit )
# }
# NOT RUN {
# dottest
# }
Run the code above in your browser using DataLab