fix best.R