Edited r file to include functions