R code for DynusT calibration