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
# Import Library
refLibrary <- ImportLibrary(file.path(RI.path,'library.txt'))
# get the sample RI
corRI <- sampleRI(sampleDescription, refLibrary, r_thres = 0.95)
# same as above, but changing the correlation threshold and the minimum number
# of observations
corRI <- sampleRI(sampleDescription, refLibrary, r_thres = 0.9,
minPairObs = 10)
Run the code above in your browser using DataLab