## Not run:
# iglobal <- addIonSatistics(pglobal)
# rglobal <- addRetentionTimeStatistics(iglobal, .parallel=TRUE)
# rglob$outlier <- with(rglob, abs(retention.atApex - retention) > 4)
# p <- pRetention(rglobal)
#
# p + geom_point(aes(retention.atApex, retention))
# p + geom_point(aes(retention.atApex, retention-retention.atApex))
# p + geom_point(aes(ppm, retention-retention.atApex))
# p + geom_density(aes(x=ppm), alpha=.242)
# ## End(Not run)
Run the code above in your browser using DataLab