# NOT RUN {
iatom = smiles.to.iatom(c('OC[C@H]1OC(O)[C@H](O)[C@H](O)[C@H]1O'))
data(adduct_rules)
data(adducts)
addScore <- countAdductRuleMatches(iatom, adduct_rules = adduct_rules)
checkAdductRule(addScore, adduct_table = adducts)
# }
Run the code above in your browser using DataLab