Trace Function In R