# NOT RUN {
d<-ROC_data_creator2()
# }
# NOT RUN {
f<-fit_srsc_ROC(d,ite = 111, summary = FALSE, cha = 1,)
rstan::check_hmc_diagnostics(f)
rstan::traceplot(f)
draw_ROC_Curve_from_fitted_model(f)
# }
# NOT RUN {
d<-ROC_data_creator2(
Number_of_cases = 100,
Number_of_non_cases = 100,
prob_case = c(0.1,0.2,0.3,0.5,0.8,0.9),
prob_non_case = c(0.4,0.3,0.2,0.1,0.1,0.1)
)
# }
# NOT RUN {
f<-fit_srsc_ROC(d,ite = 111, summary = FALSE, cha = 1,)
rstan::check_hmc_diagnostics(f)
rstan::traceplot(f)
draw_ROC_Curve_from_fitted_model(f)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab