fml <- "C3H7Cl1"
getMID(fml)
if (FALSE) {
bench::mark(
CorMID = dim(getMID(fml, prec=5)),
Rdisop = dim(round(t(Rdisop::getMolecule(fml)$isotopes[[1]])[1:4,],5))
)
}
if (FALSE) {
data(chemforms, package = "enviPat")
chemforms <- chemforms[-grep("[[]", chemforms)]
bench::mark(
CorMID = length(lapply(chemforms, getMID)),
Rdisop = length(lapply(chemforms, Rdisop::getMolecule))
)
}
Run the code above in your browser using DataLab