Adding best.R; fixed data read; outcome validation works