# NOT RUN {
#========================================================================================
#                        Show data by table
#========================================================================================
                 viewdata(BayesianFROC::dddd)
#========================================================================================
#              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$q < 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,
           NI=199, # 2020 April 6
           C=max(dddd$c),
           M=max(dddd$m),
           Q=max(dddd$q)
        )
          dddd <-ddd
#========================================================================================
#              Fit model to the object dddd
#========================================================================================
#  Unfortunately, R CMD check require running time to be less than 5 which is difficult
#  for rstan::sampling(), thus, we cannot run the following from roxygen2 example.
#
#
#     For Fitting, execute the following R code;
#
#
#
# }
Run the code above in your browser using DataLab