RthroughExcel(useR)