R code: fluo_v3 for 1 spectra calculus