.old_wd <- setwd(tempdir())
example <- system.file("extdata", "d13C.tsv", package = "gasanalyzer")
# read data and recalculate using default gas-exchange equations:
df <- read_gasexchange(example) |>
recalculate(create_equations("default"))
# write recaculated data
write_gasexchange(df, "d13C_recalculated.tsv")
setwd(.old_wd)
Run the code above in your browser using DataLab