completed best.R