Nothing
#' @title demonstration without pausing
#' @description demonstration without pausing. The author does not want to be bothered to hit Enter key. So,,,, made this. But now, I completely forget what codes run,,,,now 2020 Jul.
#' @return none
#' @export
#'
#' @examples
#' \dontrun{
#'
#' demo_Bayesian_FROC_without_pause()
#'
#'
#'
#' Close_all_graphic_devices() # 2020 August
#' }
#'
demo_Bayesian_FROC_without_pause <- function(){
# 1) First, we prepare the dataset for a single reader and a single modality.
viewdata(BayesianFROC::dataList.Chakra.1.with.explantation)
# pause()#1 /10 ---- we fit our model to the above data
fit <- fit_Bayesian_FROC( ite = 1111, summary = TRUE, cha=3, dataList = BayesianFROC::dataList.Chakra.1,new.imaging.device = TRUE,DrawAFROCcurve = TRUE )
DrawCurves(fit,Colour = FALSE,DrawFROCcurve = FALSE ,DrawAFROCcurve = FALSE,DrawCFPCTP = TRUE)
DrawCurves(fit,Colour = TRUE,DrawFROCcurve = FALSE ,DrawAFROCcurve = FALSE,DrawCFPCTP = TRUE)
DrawCurves(fit,Colour = TRUE,DrawFROCcurve = FALSE ,DrawAFROCcurve = FALSE,DrawCFPCTP = TRUE, upper_y = 0.7)
DrawCurves(fit,Colour = FALSE)
DrawCurves(fit,Colour = FALSE,DrawAFROCcurve = TRUE)
DrawCurves(fit,Colour = TRUE,DrawFROCcurve = TRUE ,DrawAFROCcurve = FALSE,DrawCFPCTP = TRUE, upper_y = 0.6)
# pause()#2 /10 ---- Examine the bias
# datasets <-error_srsc(
# NLvector = c(100,10000000,1000000000),
# ite = 2222
# )
# pause()#3 /10 ---- p-value omitted
# pause()#4 /10 ---- Bi normal assumption ----- High AUC--------
viewdata(BayesianFROC::dataList.High)
# pause()#5 /10 ----- Fitting (in the high ability case).
fit.High <- fit_Bayesian_FROC(BayesianFROC::dataList.High,ite = 1111)
# pause()#6 /10 ----- draw a bi normal assumption----- High AUC--------
draw_latent_signal_distribution(fit.High)
# pause()#7 /10 ---- Bi normal assumption ----- Low AUC--------
viewdata(BayesianFROC::dataList.Low)
# pause()#8 /10 ----- Fitting (in the low ability case).
fit.Low <- fit_Bayesian_FROC(BayesianFROC::dataList.Low,ite = 1111)
# pause()#9 /10 ----- draw a bi normal assumption----- Low AUC--------
draw_latent_signal_distribution(fit.Low)
# Demo for srsc finished !!
# pause()
viewdata(BayesianFROC::dataList.Chakra.Web)
# pause()
fit <- fit_Bayesian_FROC(BayesianFROC::dataList.Chakra.Web,ite = 1000,summary = TRUE,PreciseLogLikelihood = TRUE)
# pause()
DrawCurves_MRMC_pairwise(fit)
# pause()
DrawCurves_MRMC_pairwise(fit,modalityID = c(1,2),readerID = c(1))
# pause()
DrawCurves_MRMC_pairwise(fit,modalityID = c(3,4),readerID = c(1))
# pause()
DrawCurves_MRMC_pairwise(fit,modalityID = c(2,4),readerID = c(3))
# pause()
DrawCurves_MRMC_pairwise(fit,modalityID = c(3,1),readerID = c(1,2,3,4))
}# function
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.