Load R packages

# Clean workspace
rm(list=ls())

library(ftmsRanalysis)
library(KEGGdata)

Import Summarized Peaks

uniqueness_nsamps was the method applied to the organicUnique.Robj, which is an R object.

load(file="organicUnique.Robj")

Processing

# str(organic_unique)
# Peaks breakdown by group
groupSummary <- organic_unique$e_data
# Peaks metadata
groupMetadata <- organic_unique$e_meta[c("Mass","MolForm","bs1_class")]
# Combine data 
groupData <- merge(groupSummary,groupMetadata,by="Mass")
head(groupData)

Map MolForm to KEGG

LS0tDQp0aXRsZTogIkZUSUNSIHRvIEtFR0c6IG9yZ2FuaWMiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQojIExvYWQgUiBwYWNrYWdlcw0KDQpgYGB7cn0NCiMgQ2xlYW4gd29ya3NwYWNlDQpybShsaXN0PWxzKCkpDQoNCmxpYnJhcnkoZnRtc1JhbmFseXNpcykNCmxpYnJhcnkoS0VHR2RhdGEpDQpgYGANCg0KDQojIEltcG9ydCBTdW1tYXJpemVkIFBlYWtzIDxicj4NCl9fdW5pcXVlbmVzc19uc2FtcHNfXyB3YXMgdGhlIG1ldGhvZCBhcHBsaWVkIHRvIHRoZSBgb3JnYW5pY1VuaXF1ZS5Sb2JqYCwgd2hpY2ggaXMgYW4gUiBvYmplY3QuDQoNCmBgYHtyfQ0KbG9hZChmaWxlPSJvcmdhbmljVW5pcXVlLlJvYmoiKQ0KYGBgDQoNCiMgUHJvY2Vzc2luZw0KDQpgYGB7cn0NCiMgc3RyKG9yZ2FuaWNfdW5pcXVlKQ0KIyBQZWFrcyBicmVha2Rvd24gYnkgZ3JvdXANCmdyb3VwU3VtbWFyeSA8LSBvcmdhbmljX3VuaXF1ZSRlX2RhdGENCiMgUGVha3MgbWV0YWRhdGENCmdyb3VwTWV0YWRhdGEgPC0gb3JnYW5pY191bmlxdWUkZV9tZXRhW2MoIk1hc3MiLCJNb2xGb3JtIiwiYnMxX2NsYXNzIildDQojIENvbWJpbmUgZGF0YSANCmdyb3VwRGF0YSA8LSBtZXJnZShncm91cFN1bW1hcnksZ3JvdXBNZXRhZGF0YSxieT0iTWFzcyIpDQpoZWFkKGdyb3VwRGF0YSkNCmBgYA0KDQojIyBNYXAgTW9sRm9ybSB0byBLRUdHDQoNCmBgYHtyfQ0KDQpgYGANCg0K