Closed cpanse closed 5 years ago
for (i in fragments) {
try(do.aromaticity(i))
try(do.typing(i))
try(do.isotopes(i))
}
sapply(fragments, rcdk::get.exact.mass)
rcdk::get.exact.mass(fragments[[101]])
[1] 278.106
rcdk::get.smiles(fragments[[101]])
"C([CH])=C(C=C[C]Cl)OC([CH]C(C)(C)C)N1C=NC=N1"
plot(table(sapply(fragments, rcdk::get.exact.mass)))
in-silico.fragments <- data.frame(MH1P=sapply(fragments, rcdk::get.exact.mass) + 1.0072, SMILES=as.character(sapply(fragments, rcdk::get.smiles)))
looking at the 1st result the question raises: How to extract the peaklist?