data(tea)
tpoints <- as.numeric(rownames(tea.raw[[1]]))
lambdas <- as.numeric(colnames(tea.raw[[1]]))
contour(tpoints, lambdas, tea.raw[[1]], col = terrain.colors(15),
xlab = "Retention time (min.)", ylab = "Wavelength (nm)")
Run the code above in your browser using DataLab