best.R all three parts pass tests