Create dtrFun.R