require(TargetSearchData)
data(TargetSearchData)
# process chormatograms and get a profile
RI.path <- file.path(find.package("TargetSearchData"), "gc-ms-data")
RIpath(sampleDescription) <- RI.path
refLibrary <- ImportLibrary(file.path(RI.path,"library.txt"))
refLibrary <- medianRILib(sampleDescription, refLibrary)
corRI <- sampleRI(sampleDescription, refLibrary, r_thres = 0.95)
peakData <- peakFind(sampleDescription, refLibrary, corRI)
metabProfile <- Profile(sampleDescription, refLibrary, peakData, r_thres = 0.95)
# show quant Matrix
quantMass(refLibrary)
# no quantMass have been defined yet, so are all zeros
# 0 0 0 0 0 0 0 0 0 0 0 0
# get a Matrix using use default values, ie, select the masses
# with the highest intensity
quantMat <- quantMatrix(refLibrary, metabProfile)
quantMat
# set the quantification Masses
quantMass(refLibrary)[1:3] <- c(89,86,100)
quantMat <- quantMatrix(refLibrary, metabProfile)
quantMat
Run the code above in your browser using DataLab