Completed the stub R file and verify that it works