# NOT RUN {
# A regression model is needed:
data(curvelithium)
model <- calibCurve(curve = curvelithium, order = 2)
signal <- c(0.395, 0.259, 0.188, 0.141, 0.110, 0.095, 0.084)
(conc <- signal2conc(signal = signal, model = model))
# }
Run the code above in your browser using DataLab