Create roystonTest.R