knitr::opts_chunk$set(echo = TRUE) library(FiDEL) #library(latex2exp) #library(ggpubr) #library(tictoc) #library(data.table)
# 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')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.