Finish best.R file
Removed wd