Implemented best.R