knitr::opts_chunk$set(echo = TRUE)
library(FiDEL)
#library(latex2exp)
#library(ggpubr)
#library(tictoc)
#library(data.table)

Figure 1

# generate labels
y <- create.labels(N = 100000, rho=0.5)

# generate scores with a specific AUC from gaussian distribution
gs <- create.scores.gaussian(y, auc=0.9, tol = 0.0001)
# create pcr data
pcrd <- pcr(gs, y, sample_size=100, sample_n=1000)
plot.pcr(pcrd, fname='results/Figure1.pdf')


sungcheolkim78/FiDEL documentation built on Nov. 13, 2024, 7:58 a.m.