WRITE_DM.R

WRITE_DM <- function () {






# in.scientific.equation='PPOX_DOXY=f(DOXY); PPOX_DOXY_ADJUSTED=A*PPOX_DOXY+B; DOXY_ADJUSTED=f(PPOX_DOXY_ADJUSTED)';
# in.scientific.comment='by Henry Bittig; ORCID iD 0000-0002-8621-3095; Bittig and Körtzinger (2015) slope on PPOX_DOXY with linear time trend in slope; Using in-air obs;%TLCSTR% error gives 95 % CI';
}