## get the sample .spc files from ftirsearch.com (see above)
# single spectrum
spc <- read.spc ("BENZENE.SPC")
plot (spc)
# multi-spectra .spc file with common wavelength axis
spc <- read.spc ('IG_MULTI.SPC')
spc
# multi-spectra .spc file with individual wavelength axes
spc <- read.spc ("BARBITUATES.SPC")
plot (spc [[1]], lines.args = list (type = "h"))
Run the code above in your browser using DataLab