modified R call