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