# Test with a local file
file <- system.file("extdata/misc/C-127.txt", package = "CHNOSZ")
# Uncomment to use a URL instead
#file <- "https://janaf.nist.gov/tables/C-127.txt"
# Add parameters to OBIGT and make a Cp plot
inew <- JANAF.to.OBIGT(file, abbrv = "acetylene", plot_Cp = TRUE)
# Show calculated properties
subcrt(inew)
Run the code above in your browser using DataLab