# NOT RUN {
## load package required
library(flare)
#generate data
L = sugm.generator(d = 30, graph = "random", prob = 0.1)
out1 = sugm(L$data, lambda=10^(seq(log10(.4), log10(0.03), length.out=20)))
#draw ROC curve
Z1 = sugm.roc(out1$path,L$theta)
#Maximum F1 score
max(Z1$F1)
# }
Run the code above in your browser using DataLab