Filled in the stub R file to make functions functional