Create dtrans.r