spectrum_data <- generate_lorentz_curves(
data_path = sim[1:2],
nfit = 3,
sfr = c(3.55, 3.35),
wshw = 0,
ask = FALSE,
verbose = FALSE
)
ppm_rng <- get_ppm_range(spectrum_data)
print(ppm_rng)
Run the code above in your browser using DataLab