require(TargetSearchData)
data(TargetSearchData)
# update CDF and RI paths
CDFpath(sampleDescription) <- file.path(find.package("TargetSearchData"), "gc-ms-data")
RIpath(sampleDescription) <- file.path(find.package("TargetSearchData"), "gc-ms-data")
# Plot the peak "Valine" for sample number 1
grep("Valine", libName(refLibrary)) # answer: 3
# plot peak from the cdf file. The rawpeaks object can be recycled in order to plot
# other metabolites.
rawpeaks <- plotPeak(sampleDescription, refLibrary, metabProfile, which.smp=1,
which.met=3, massRange=c(85,500), corMass=FALSE)
Run the code above in your browser using DataLab