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'))
# update median RI
refLibrary <- medianRILib(sampleDescription, refLibrary)
# perhaps you need to adjust the library RI of one metabolite and the allowed time
# deviation (first time deviation window)
libRI(refLibrary)[5] <- 306500
RIdev(refLibrary)[5,1] <- 2000
refLibrary <- medianRILib(sampleDescription, refLibrary)
Run the code above in your browser using DataLab