# 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
)
ggplot(df, aes(x =FPF, y = TPF, colour = q, group = m)) +geom_point()
# Revised 2019 Jun 18, Revised 2019 Sept 9
# }
# NOT RUN {
# dottest
# }
Run the code above in your browser using DataLab