# NOT RUN {
#================The first example======================================
#((Primitive way)).
#1) Build the data for a singler reader and a 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.
#Since the above dataset "dat" are single reader and single modality,
#the following function fit the non hierarchical model.
fit <- BayesianFROC::fit_Bayesian_FROC(dat,ite=1111)
# Where, the variable "ite" specifies the iteration of MCMC samplings.
# Larger iteration is better.
#3.1) Confirm whether our estimates converge.
ConfirmConvergence(fit)
# By the above R script,
# the diagnosis of convergence will be printed in the R (R-studio) console.
# The diagnosis is based on only the R hat statistic.
# It also return the logical vector indicating whether or not the MCMC converge,
# if MCMC converges, then the return value is TRUE and if not, then FALSE.
# This logical return value is used in this package development
# and the user should not be interested.
# The following was useful for programming.
#3.2) The return value is TRUE or FALSE.
x <- ConfirmConvergence(fit)
#3.3) If you do not want to print the results in the R (Studio) console, then
x <- ConfirmConvergence(fit,summary=FALSE)
# 2019.05.21 Revised.
# 2019.12.02 Revised.
# }
# NOT RUN {
# dontrun
# }
Run the code above in your browser using DataLab