# NOT RUN {
data(eem_list)
data(pfres_comps2)
data(abs_data)
results <- eempf4analysis(pfmodel = pfres_comps2[[2]],
eem_list = eem_list, absorbance = abs_data,
cuvl = 5, n = 4)
# }
Run the code above in your browser using DataCamp Workspace