# 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