# NOT RUN {
#========================================================================================
# Now single reader and single modality case only
#========================================================================================
# Fit a model to data-set "d"
# In the resulting object contained samples from posterior predictive distribution (PPD)
f <- fit_Bayesian_FROC( ite = 1111, summary = TRUE, cha = 1, dataList = d )
# Plot samples synthesized from posterior predictive distribution (PPD)
plot_dataset_of_ppp(f)
plot_dataset_of_ppp(f,colorindex = 1)
plot_dataset_of_ppp(f,colorindex = 2)
plot_dataset_of_ppp(f,colorindex = 3)
plot_dataset_of_ppp(f,colorindex = 4)
# }
# NOT RUN {
#dontrun
# }
Run the code above in your browser using DataLab