Best.R fully working and returning accurate results