Added best.R file