Added modelling R scripts