Docker-in-Docker (DinD) capabilities of public runners deactivated. More info

Commit 27bfa6ac authored by Carine Rey's avatar Carine Rey
Browse files

update threshold >= instead of >

parent 6cc6c38c
......@@ -62,8 +62,8 @@ let profile_l_of_splitted_profile ~nb_cat ~nb_sites profile_fn =
let p0 = splitted_profile / selector ["profile_0.tsv"] in
let p1 = splitted_profile / selector ["profile_1.tsv"] in
let p2 = splitted_profile / selector ["profile_2.tsv"] in
{profile_c=cat_file [p0;p1;p2] ; profile_n=prefix ^ "_3categories" ; profile_f}
(*{profile_c=p2 ; profile_n=prefix ^ "_1categorie_max_dist" ; profile_f};*)
(*{profile_c=cat_file [p0;p1;p2] ; profile_n=prefix ^ "_3categories" ; profile_f}*)
{profile_c=p2 ; profile_n=prefix ^ "_1categorie_max_dist" ; profile_f};
)
| 1 -> (let p0 = splitted_profile / selector ["profile_0.tsv"] in
{profile_c=p0; profile_n=prefix ; profile_f})
......
......@@ -154,8 +154,8 @@ calc_TN_FP = function(vals, t){
FP = 0
vals = na.omit(vals)
if (length(vals) > 0) {
TN = sum(vals <= t)
FP = sum(vals > t)
TN = sum(vals < t)
FP = sum(vals >= t)
}
return(data.frame(TN = TN, FP = FP))
}
......@@ -165,8 +165,8 @@ calc_TP_FN = function(vals, t){
TP = 0
vals = na.omit(vals)
if (length(vals) > 0) {
FN = sum(vals <= t)
TP = sum(vals > t)
FN = sum(vals < t)
TP = sum(vals >= t)
}
return(data.frame(TP = TP, FN = FN))
}
......@@ -184,7 +184,7 @@ calc_TN_FP_TP_FN = function(t, df_H0_melt, df_Ha_melt){
build_df_couple = function (df_h0,df_ha,name) {
print(name)
if ((! is.null(df_h0)) & (! is.null(df_ha))) {
df = do.call(rbind.data.frame,lapply(seq(0,1,0.01), calc_TN_FP_TP_FN, df_H0_melt = df_h0, df_Ha_melt = df_ha))
df = do.call(rbind.data.frame,lapply(unique(c(0,1,df_h0$value, df_ha$value)) , calc_TN_FP_TP_FN, df_H0_melt = df_h0, df_Ha_melt = df_ha))
df$couple = name
print(head(df))
} else {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment