Dear Gitlab users, due to maintenance reasons, Gitlab will not be available on Thursday 30.09.2021 from 5:00 pm to approximately 5:30 pm.

Commit 00a3abb9 authored by joerg.buescher's avatar joerg.buescher
Browse files

better handling of peaks with background in plot_peaks

parent 7190b4b6
......@@ -35,7 +35,7 @@ plot_peaks <- function(metab, smpl, msd, prm) {
}
}
nowheight <- c(msd[[im]][[id]]$height, msd[[im]][[id]]$height12, msd[[im]][[id]]$height13)
nowheight <- c(nd$x1[msd[[im]][[id]]$peaktop], nd$x2[msd[[im]][[id]]$peaktop], nd$x3[msd[[im]][[id]]$peaktop])
nowheight[is.na(nowheight)] <- 0
nowheight[is.infinite(nowheight)] <- 0
ylim12 <- c(0, max(c(100, 1.1 * nowheight[1:2],na.rm = TRUE) ))
......
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