# RI standards
standard <- c(100, 200, 300, 400, 500)
# observed standard retention times
observed <- c(10.4, 19.3, 32.4, 40.2, 50.3)
# a random set of retention times
RT <- runif(100,1,60)
# the corrected RIs
RI <- rt2ri(RT, observed, standard)
Run the code above in your browser using DataLab