R/i2u.R

In zeehio/MassSpecWavelet: Peak Detection for Mass Spectrometry data using wavelet-based algorithms

i2u <- function(i, t0 = 9.0E-8, a = 3.36301655051424E8, b = 0, U = 20000, delta = 4.0E-9) {
    t <- i * delta # in seconds
    u <- (a * (t - t0)^2 + b) * U # here is m/z at 150KDa
    return(u)
}