Attempt to implement Local Hillclimbing project using R Script