Added AbsFxn.R which contains the function getAbs(dataAbs,waveCol,signals,colSubsetString,dataSummary,grnum). This function extracts the wavelength peak from an absorbance data frame where each column is the sample and one column contains the wavelengths. I added an example using 4 different wavelengths.