# Some fake sample data
s = data.frame("d2H" = seq(-100, -10, by=10), "d2H.sd" = rep(2), "d2H_cal" = rep("OldUT_H_1"))
# Transform to VSMOW-SLAP scale using default arguments
d1 = refTrans(s)
# Transformed values
d1$data$d2H
# error - target scale not valid for marker
if (FALSE) d2 = refTrans(s, ref_scale = "VSMOW_O")
Run the code above in your browser using DataLab