best.R revised for part 2