# NOT RUN {
data("absorbance")
plot(absorbance$wavelength, absorbance$sample1,
type = "l",
xlab = "Wavelengths", ylab = "Absorbance per meter"
)
lines(absorbance$wavelength, absorbance$sample2, col = "blue")
lines(absorbance$wavelength, absorbance$sample3, col = "red")
# }
Run the code above in your browser using DataLab