# 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