add tgraph.r