dataset research and R code