implement best.R