finished best.R