Completed task in R file