Added full model R script