thermo

## Don't show: data(thermo)
thermo$obigt: 1911 aqueous, 3588 total species
## End(Don't show) ## where are the data files in CHNOSZ? system.file("data", package="CHNOSZ")
[1] "/home/jedick/R/x86_64-slackware-linux-gnu-library/3.5/CHNOSZ/data"
system.file("extdata", package="CHNOSZ")
[1] "/home/jedick/R/x86_64-slackware-linux-gnu-library/3.5/CHNOSZ/extdata"
## exploring thermo$obigt # what physical states there are unique(thermo$obigt$state)
[1] "liq" "aq" "cr" "cr2" "cr3" "cr4" "cr5" "cr6" [9] "cr7" "cr8" "cr9" "cr_Berman" "gas"
# formulas of ten random species n <- nrow(thermo$obigt) thermo$obigt$formula[runif(10)*n]
[1] "C4H4S" "C13H14" "Zr+4" "InF+2" "C6H12S" "C14H24O4" "CH(CH2)6CH3" [8] "YbCrO4+" "KSO4-" "C2Cl4"