working on best.R
working on best, close but imperfect