# NOT RUN {
#========================================================================================
#                     First, we prepare the data endowed with this package.
#========================================================================================
             dat  <- get(data("dataList.Chakra.Web"))
#========================================================================================
#                           #Calculate FPFs and TPFs and etc.
#========================================================================================
                             a <- metadata_to_fit_MRMC(dat)
#Now, we get  a meta-data object named "a".
#========================================================================================
#                                 Check of Definiion
#========================================================================================
                                 a$hh/dat$NL == a$hhN
# Since all of aboves are TRUE, the hhN is a TPF per NL.
#========================================================================================
#                             Plot a FPFs and TPFs
#========================================================================================
#'
                                 FPF = a$ffN
                                 TPF = a$hhN
                               dark_theme()
                               plot(FPF,TPF)
#========================================================================================
#                             Plot a FPFs and TPFs via ggplot
#========================================================================================
                       length(dat$f)==length(FPF)
            q  <- dat$q
            m  <- dat$m
            df <- data.frame(FPF,
                             TPF,
                             m,
                             q
                             )
# ggplot2::ggplot(df, aes(x =FPF, y = TPF, colour = q, group = m)) + ggplot2::geom_point()
# Revised 2019 Jun 18, Revised 2019 Sept 9
# }
Run the code above in your browser using DataLab