R tool