Commit 8717f0f5 authored by joerg.buescher's avatar joerg.buescher
Browse files

beautify expert mode plot label

parent 9dfbba0d
......@@ -330,7 +330,7 @@ for (im in 1:prm$nmet) {
msd[[im]][[id]]$label2 <- paste0(label2,
'\n',
' ML_pcand:' , round(final_peak_class$H,2))
' ML_pcand: ' , round(final_peak_class$H,2))
} # endfor all samples
} # endif metabdb_data$quantifier was measured in refsample
......
......@@ -47,8 +47,8 @@ evaluate_peaks <- function(msd, prm){
msd[[im]][[id]]$label1 <- paste0(substr(msd[[im]][[id]]$label1, 1, nowstartpos), 'QS: ', round(100*final_pred,0) )
#update plotdata label2
quantile_label <- paste0(names(ml_quantile),": ",ml_quantile,collapse=" ")
new_label <- paste0(paste("rep: ", round(final_pred,3),"\n",quantile_label) )
quantile_label <- paste0(names(ml_quantile),": ", round(ml_quantile,2), collapse=" ")
new_label <- paste0(paste(" rep: ", round(final_pred,3),"\n",quantile_label) )
msd[[im]][[id]]$label2 <- paste(msd[[im]][[id]]$label2, new_label)
nowchecksum <- sum(msd[[im]][[id]]$foundchrom)
......
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