added best.R and data