data(fishoil, package = "EMSC")
Raman <- fishoil$Raman[, 850:3300]
EMSC.rep <- EMSC(Raman, degree = 6, reference = Raman[30, ],
replicates = fishoil$replicates)
plot(EMSC.rep)
Run the code above in your browser using DataLab