Adding best.R; fixed state validation per TA advice
Got down to final data frame
Got down to final data frame; think this may be OK