Update of R script with some research questions