require(TargetSearchData)
data(TargetSearchData)
# get RI file path
RI.path <- file.path(find.package("TargetSearchData"), "gc-ms-data")
# update RI file path
RIpath(sampleDescription) <- RI.path
peakData <- peakFind(sampleDescription, refLibrary, corRI)
# Plot a comparison RI deviation of metabolite "Valine"
grep("Valine", libName(refLibrary)) # answer: 3
plotSpectra(refLibrary, peakData, libId = 3, type = "ht")
# Plot the spectra "side by side"
plotSpectra(refLibrary, peakData, libId = 3, type = "ss")
# Plot the spectra difference
plotSpectra(refLibrary, peakData, libId = 3, type = "diff")
Run the code above in your browser using DataLab