Step 3. Retention Time Correction
xsg2 <- retcor(xsg, method="obiwarp", plottype="deviation")