starting work on best.R