add new R code to generate new format of data and the model to run it