changed R for testing