# Fit an exponential model using the reference wavelength 350 between 190 and 900 nm.
data(spectra)
fit <- cdom_fit_exponential(spectra$wavelength, spectra$spc1, 350, 190, 900)
str(fit)
plot(spectra$wavelength, spectra$spc1)
lines(spectra$wavelength, fit$data$.fitted, col = "red")
Run the code above in your browser using DataLab