# NOT RUN {
#----------------------------------------------------------------------------------------
# Show data by table
#----------------------------------------------------------------------------------------
viewdata(BayesianFROC::ddddd)
####1#### ####2#### ####3#### ####4#### ####5#### ####6#### ####7#### ####8#### ####9####
#----------------------------------------------------------------------------------------
# make an object dddd from an object dd
#----------------------------------------------------------------------------------------
ddd <- data.frame(m=dd$m,q=dd$q,c=dd$c,h=dd$h,f=dd$f)
dddd <- ddd[ddd$m < 2,] # Reduce the dataset ddd, i.e., dd
ddd <- list(
m=dddd$m,
q=dddd$q,
c=dddd$c,
h=dddd$h,
f=dddd$f,
NL=142,
C=max(dddd$c),
M=max(dddd$m),
Q=max(dddd$q)
)
ddddd <-ddd
# }
# NOT RUN {
#----------------------------------------------------------------------------------------
# Pool AUCs over all readers
#----------------------------------------------------------------------------------------
fit <- fit_Bayesian_FROC(ddddd)
DrawCurves(fit,readerID = c(1,2,3,4))
# With pain 2019 Sept 29
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab